LPA/DMC-11 TEST II 
ea 








tht sen 
PRODUCT CODE: AC-B0558-MC 
DIAGNOSTIC CODE: MAINDEC-11-CRLPM-B-D 
PRODUCT NAME : CRLPMBO LPA/DMC-11 TEST II 
DATE: DEC. 1980 
MAINTAINER: DIAGNOSTIC ENG. 


The information in this document is subject to change without 
notice and should not be construed as a commitment by Digital 
Equipment Corporation. Digital Equipment Corporation assumes 
no responsibility for any errors that may appear in this 
document. 


The software described in this document is furnished under a 
license and may only be used or copied in accordance with the 
terms of such License. 


Digital Equipment Corporation assumes no responsibility for 
the use or reliability of its software on equipment that is 
not supplied by Digital. 


Copyright (C) 1977,1978,1980 by Digital Equipment 
Corporation 


SE@ 0001 


M of thecBabeoty CRO 


C 
Page 2 


ABSTRACT 


This diagnostic is one of a series of diagnostics aimed at the 
the LPA-11K system. Please reference section 8.7 fora 
complete list. 


The function of the M8200-YC diagnostics is to verify that the 
option operates according to specifications. The diagnostics 
verfiy that there are no malfunctions and the all operations 
of the M8200-YC are correct in its environment. 


This diagnostic requires the user to recable the system, that 
is, the LPA-11X 1/0 bus must join the unibus. 


Parameters must be set up to alert the diagnostics to the 
M8200-YC configuration. These parameters are contained in the 
STATUS TABLE and are generated in two ways: 1) Manual 
Input - the operator answers questions. 2) Autosizing - the 
program determines the parameters automatically. 


lt performs jump tests on the micro-processor and verifies the 
his diagnostic will not run on 

a KMC (M8204), however it is possible to load the KMC CRAM 
with the m8200-YC micro-code. See test 2 for details. 


Currently there are two off Line diagnostics that are to be 
run in sequence to insure that if an error should occur it 
will be detected at an early stage. 
NOTE: Additional diagnostics may be added in the future. 
The two diagnostics are: 
1. CRLPL CREV) LPA/DMC-11 DIAGNOSTIC TST I 
(BASIC W/R AND MICRO-PROCESSOR TESTS) 
2. CRLPM CREV] LPA/DMC-11 DIAGNOSTIC TST I] 
(JUMP AND CROM TESTS) 
REQUIREMENTS 
EQUIPMENT 


Any PDP11 family CPU (except an LSI-11) with minimum 8k memory 
CONSOLE 1/0 TERMINAL 


1 


SEQ 0002 


2.2 
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STORAGE 


Program will use all SK of memory except where ABL and 
BOOTSTRAP LOADER reside. Locations 1500 thru 1640; contain 
the “STATUS TABLE’ information which is generated at start of 
diagnostics by manual input (questions) or automatically 
(auto-sizing). This area is an overlay area and should not be 
altered by the operator. 


LOADING PROCEEDURE 

METHOD 

ALL programs are in absolute format and are loaded using the 
ABSOLUTE LOADER. NOTE: if the diagnostics are on a media such 
as DISK ,MAGTAPE,DECTAPE, or CASSETTE; follow instructions 
for the monitor which has been provided on that specific 
media. 

ABSOLUTE LOADER starting address *500 


MEMORY * SIZE 


Vin NNNN 


— 

oa 

= 
3 
NNN 


Place address of ABS loader into switch register. 
(also place ‘HALT’ Sw up) 


Depress ‘LOAD ADDRESS* key on console and release. 


Depress ‘START KEY" on console and release (program should now 
be loading into CPU) 


SEQ 0003 
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STARTING PROCEEDURE 


a. Set switch register to 000200 

b. Depress ‘LOAD ADDRESS’ key and release 

c. Set SWR to zero for ‘AUTO SIZING* or SWR bitO=1 for manual 
input (questions) or SWR bit7=1 to use existing parameters 
set up by a previous start or a previously run M™8200-YC 
diagnostic. 

d. Depress ‘START KEY’ and release. The program will type 
Maindec Name and = name (if this was the first start 
up of the program) and also the following: 


MAP OF MB200-YC status 


PC CSR STATI STAT2 STATS 


001500 160010 145310 177777 000000 


The program will type ‘'R' and proceed to run the diagnostic. 
The above is only an at te This would indicate the status 
table starting at add. 1500 in the program. In this example 
the table contains the information and status of an M8200-YC. 
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
1S DONE. For information of status table see section 8.4 for 


If the diagnostic was started with SwWOO=1 indicating manual 
parameter input then the following shows an example of the 
questions asked and some example answers: 


HOW MANY M8200-YC'S TO BE TESTED?1 


01 

CSR _ADDRESS?160010 

VECTOR ADDRESS?310 

BR PRIORITY LEVEL? (4,5,6,7)75 


FOLLOWING THE QUESTIONS THE STATUS MAP IS PRINTED OUl AS 
DESCRIBED ABOVE, THE INFORMATION IN THE MAP REFLECTS THE 
ANSWERS TO THE QUESTIONS. IF THE DIAGNOSTIC WAS STARTED WITH 
SwOO=0 and SwWO7=0 (AUTO-SIZING) then no questions are asked 
and only the status-map is printed out. If AUTO-SIZING is 
used the status information must be verified to be correct 
(match the hardware). if it does not match the hardware the 
Ropers must be restarted with SWOO=1 and the questions 
answered. 


SEQ 0004 
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CONTROL SWITCH SETTINGS 


Sw 15 Set: Halt on error 
Sw 14 Set: Loop on current test 


SW 13 Set: Inhibit error print out 

SW 12 Set: Inhibit type out/bell on error. 
SW 11 Set: Inhibit iterations. (quick pass) 
Sw 10 Set: Escape to next test on error 


SW 09 Set: Loop with current data — 

SW 08 Set: Catch error and loop on it 

SW 07 Set: Use previous status table. ; 

SW 06 Set: Halt in ROMCLK routine before clocking 

micro=-processor 

SW 05 Set: Reserved 

SW 04 Clear: Select V5 of M8200-YC's micro-code 

SW 04 Set: Select V4 of MB200-YC's micro-code 

SW 03 Set: Reselect M8200-YC's desired active 

SW O02 Set: Lock on selected test 

SW 01 Set: Restart program at selected test — 

SW 00 Set: Build new status table from questions. (if Sw07=0 
and SwWOO=0 a new status table is built by 
auto-sizing) 


Switch 06 and 08-15 are dynamic and can be changed as needed 
while the diagnostic is running. Switches 00-05 and switch 07 
are static, and are used only on starting or restarting the 
diagnostic. 


SEQ 0005 
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SWITCH REGISTER OPTIONS (at start up) 


Sw 01 


SW 02 


SW 03 


METHOD: 


RESTART PROGRAM AT SELECTED TEST. It is strdngly 
suggested that at least one pass has been made before 
trying to select a test, the reason being is that the 
program has to clear areas and set up parameters. 
When this switch is used the diagnostic will ask TEST 
NO.? Answer by typing the number of the test desired 
and carrige return to begin execution at the selected 
test. 


LOCK ON SELECTED TEST. This switch when used with 
SwWO1 will cause the program to constantly — on the 
selected test. Hitting any key on the console will 
let it advance to the next test and loop until a key 
is hit again. If SwWO2=0 when SWO1 is used. The 
program will begin at the selected test and continue 
normal operations. 


RESELECT M8200-YC's desired active. Please note that 
a message is typed out for setting the switch register 
equal to M8200-YC's active. this means if the system 
has four M8200-YC's; bits 00,01,02,03 will be set in 
loc "DMACTV’ from the switch register. Using this 
switch(SWwOO) alters that location;therefore if four 
M8200-YC’s are in the system ***DO NOT*** set switchs 
greater than SW 03 in the up position. This would be 
a fatal error. Do not select more active M8200-YC's 
than there is information on in the status table. 


Load address 200 

Start with SW 00=1 

Program will type message : ; 
Set a switch for each M&200-YC desired active. 
Number (IF VALID) will be in data Lights 
(excluding 11/05) 

Set with any other switch settings desired. 
PRESS CONTINUE. 


”~ moow,r 


1 


SEQ 0006 
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DYNAMIC SWITCHES 
ERROR SWITCHES 


SW 12 Delete print out/bell on error. 


a> 

2. SW 13 Delete error printout. 

3. Sw 15 Halt on the error. 

4. SW 08 Goto beginning of the test(on error). 
5. SW 10 Goto next test(on error). 


SCOPE SWITCHES 


1. Sw06 Halt in ROMCLK routine before clocking 
micro-processor instruction. This allows the 
operator to scope a micro-processor instruction in 
the static state before it is clocked. Hit 
continue to resume running. 

2. sw0g9 (if enabled by ‘SCOP1') on an error; If an ‘t' is 

rinted in front of the test no. (ex. *TEST NO. 
0 ) SWwO9 is incorporated in that test and 
therefore SWO9 is usually the best switch for the 
pcone loop (SW14=0, SW10=0, SwO9=1, SwO8=0). If 

SWO9 is not enabeled; and there is a HARD error 
(constant); SWO8 is best. ($W14=1,0, Swi0=0, 
Sw09=0, SwO8=1). for intermittemt errors; $W14=1 
will loop on test reguardless of error or not 
error. (SW14=1, SW10=0, SwWO9=0, Sw08=1,0) 

3. Swit Inhibit interations. 

4. Swi4 Loop on current test. 


STARTING ADDRESS 


Starting address is at 000200 there are no other starting 
addresses for the M8200-YC diagnostics. (See Section 4.0) 


NOTE: If address 000042 is non-zero the program assumes it 
is under ACT11 or XXDP control and will act 
accordingly after all available M8200-YC's are tested 
the program will return to ‘XXDP* or ‘ACT-11". 


OPERATING PROCEDURE 
When program is initially started messages as described in 


section 4.0 will be printed, and program will begin running 
the diagnostic 








5.2 


6.2 
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PROGRAM AND/OR OPERATOR ACTION 
The typical approach should be 


ie Halt on error (via SW 15=1) when ever an error occurs. 
2. Clear Sw 15. 

Re Set Sw 14: (Loop on this test) 

4. Set SW 13: (inhibit error print out) 


The TEST NUMBER and PC will be Shag out and possibily an 
error message (this depends on the test) to give the operator 
an idea as to the source of the problem. If it is necessary 
to know more information tomeeeene the error report; LOOK IN 
THE LISTING for that TEST NUMBER which was typed out and then 
NOTE THE PC of thE ERROR REPORT this way the EXACT FUNCTION of 
the test CAN BE DETERMINED. 


ERRORS 


As described previously there will always be a TEST NUMBER and 
+ £ Syoed. out at the time of an error (providing Sw 13=0 and Sw 

in most cases additional information will be supplied 
in the the error message to give the operator an indication of 
the error. 


E@KOR RECOVERY 


for some reason the M8200-YC should ‘HANG THE BUS" (gain 

trol of bus so that console manual functions are inhibited) 
an init or poe down/up is necessary for operator to regain 
control of cpu. If this should happen; look in location 
*TSTNO tediress 1226) for the number of the test that was 
running at the time of the catastrophic error. In this way 
the operator will have an idea as to what the M8200-YC was 
doing at the time of the error. 


RESTRICTIONS 
STARTING RESTRICTIONS 


See section 4. (PLEASE) 

Status table should be verified reguardless of how program was 
started. Also it is important to use this listing along with 
the information printed on the CONSOLE TERMINAL to completly 
isolate problems. 


SEQ 0008 





7.2 
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OPERATING RESTRICTIONS 


The first time a M8200-YC diagnostic is loaded into core and 
run the STATUS TABLE must be set up. This is done by manual 
input (SWOO=1) or by autosizing (Sw00=0 and w07=0). 
Thereafter however the status table need not be setu bY 
subsequent restarts or even loading the next M8200-¥ 

diagnostic because the STATUS TABLE is overlayed. The current 
parameters in the STATUS TABLE are used when SwWO7=1 on start 
up. 


MB200-YC must be on the unibus. 
HARDWARE CONFIGURATION RESTRICTIONS 


M8200-YC - Jumper Wi must be IN, and switch 7 of E76 must be 
in the OFF position. 


KMC(M8204)- Jumper W1 must be IN. 
MISCELLANEOUS 
EXECUTION TIME 


ALL M8200-YC device diagnostics will give an ‘END PASS' 
message (providing no errors and SW12=0) within 4 mins. This 
is assuming SW1i1=1 (DELETE ITERATIONS) is set to give the 
fastest possible execution. The actual execution time depends 
greatly on the PDP11 CPU configuration and the amount of 
memory in the system. 


PASS COMPLETE 


NOTE: EVERY time the program is started; the tests will run 
as if SwWil (delete iterations) was up (=1). This is to 
"VERIFY NO HARD ERRORS* as soon as_ possible. Therefore the 
first pass -EACH TIME PROGRAM IS STARTED- will be a ‘QUICK 
PASS’ until all M8200-YC's in system are tested. When the 
diagnostic has completed a pass the following is an example of 
the print out to be expected. 


END PASS CRLPMB CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 


NOTE: The pass count and error counts are cummulitive for 
each M8200-YC that is running, and are set to zero 
only when the diagnostic is started. Therefore after 
an overnight run for example, the total passes and 
errors for each M8200-YC_ since the Segment te was 
started are reflected in PASSES: and ERRORS:. 


1 


SEQ 0009 


8.4 


KEY LOCATIONS 
RETURN (1214) 


NEXT (1216) 


TSTNO (1226) 


RUN (1316) 


DMCROO-DMCR17 
DMSTOO-DMST17 
(1500)-(1700) 


DMACTV (1306) 


DMCSR (1404) 


kK 1 
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Contains the address where program will return 
when iteration count is reached or if loop on 
test is asserted. 


Contains the address of the next test to be 
peformed. 


Contains the number of the test now being 
peformed. 


The bit in "RUN' always points to the M8200-YC 
currently be t08 tested. EXAMPLE: (RUN) 
1316/0000000001000000 Means that ™8200-YC 
NO.06 is the M8200-YC now running. 


These locations contain the information needed 
to test up to 16 (decimal) M8200-YC's 
sequentialy. they contain the CSR,VECTOR and 
STATUS concerning the configuration of each 
m8200-YC. 


Each bit set in this location indicates that 
_. associated spheapys will be tested in 

EXAMPLE: (DMACTV) 
130670000090000011111 ee 2 that MB200-YC no. 
00,01,02,03,04 wil sted. EXAMPLE : 
(DMACTV) 1$66/800000060001 0001 Means that 
MB200-YC no. 00,04 will be tested. 


Contains the CSR of the current M8200-YC under 
test. 


SEQ 0010 
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"STATUS TABLE* (1500-1700) 


The table is filled by AUTO SIZING or by the manual parameter 
input (questions) as described previously. Also if desired by 
user; the locations may be altered by hand (toggled in) to 
suit the specific configuration. 


The example status map shown below contains information for 
two MB200-YC'S. the table can contain up to 16 M8200-YC'S. 

Following the map is a description of the bits for each map 
entry 


MAP OF MB8200-YC STATUS 


PC CSR STATI STAT2 STATS 
001500 160010 145310 177777 000000 
001510 160020 016320 000000 000000 


Each map entry eerie 4 words which contain the status 
information for 1 M8200-YC. The PC shows where in core memory 
the first of the 4 words is. In the gramps above the first 
M8200-YC's status is in locations, 1500, 1502, 1304, and 1506. 
The second M8200-YC status is located at 1510, 151 2, 1514, and 
1516. The information contained in each 4 word entry is 
defined as follows: 


CSR: Contains M8200-YC CSR address 
STATI: 
=) MICROPROCESSOR HAS CRON 

=1 TURNAROUND CONNECTOR IS ON 

=0 NO TURNAROUND CONNECTOR 

09-11 IS MB200-YC BR PRIORITY LEVEL 


STAT2: LOW BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD) 


STAT3: BITO=1 PERFORM FREE RUNNING TESTS ON KMC 


SEQ 0011 


8.5 
8.5.1 


8.5.2 
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METHOD OF AUTO SIZING 
FINDING THE CONTROL STATUS REGISTER. 


The auto-sizing routine finds a M8200-YC as follows: It 
starts at address 170440 and tests all address in increments 
of 10 up to and including address 170500. If the address does 
not time out, the following is done, the first CROM address is 
written to a 125252 then it is read back. If it contains a -1 
or 125252 or 456 or 16520 a M8200-YC or KMC11 has been found, 
if not, the address is updated by 10 and the search continues. 
a 125252 indicates a. KMC11 with CRAM. a 456 indicates a 
M8200-YC. THIS IS WHY THE STATUS TABLE MUST BE VERIFIED BY 
THE USER AND IF ANY OF THE INFORMATION DOES NOT AGREE WITH THE 
HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS 
MUST BE ANSWERED. ALL M8200-YC's in the system will be found 
by the auto-sizer. If it does not find a M&200-YC the 
diagnostic must be restarted and the questions answered. 


FINDING THE VECTOR AND BR LEVEL 


The vector area (address 300-776) is filled with the 
instruction I0T and ‘.+2' (mext address). The processor 
status is started at 7 and the DMC is programmed to interrupt. 
The PS is lowered by 1 until the DMC interrupts, a delay is 
made and if no interupt occures at PS level 3 (because of a 
bad M8200-YC) the program assumes vector address 300 at BR 
level 5 and the problem should be fixed in the diagnostic. 
Once the problem is fixed; the program should be re-setup 
— to get correct vector. If an interupt occured; the 
address to which the M8200-YC interupted to is picked up and 
reported as the vector. NOTE: if the vector reported is not 
the vector set up by you; there is a problem and AUIO SIZING 
should not be done. 


Mine 


SEQ 0012 


8.6 
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SOFTWARE SWITCH REGISTER 


If the diagnostic is run on an 11/04 or other (CPU without a 
Switch register then a software switch register is used to 
allow user the same switch options as described previously. 
If the hardware switch register does not exist or if one does 
and it contains all ones (177777) this software switch 
register is used. 


Control: 


To obtain control at any allowable time —s execution of 
the diagnostic the operator types a CTRL G on the console 
terminal keyboard. As soon as the CTRL G is recognized, by 
the diagnostic, the following message will be displayed: 


SWR=XXXXXKX NEW? 


Where KXXXXX is the current contents of the software switch 
register in octal. The software control routine will then 
await operator action. At which time the operator is requirea 
to type one or more of the legal characters: 1) 0 - 7, 
Line feed(<LF>), 3) carriage return(<CR>), or 4) control-U 
(CTRL U). No check is made for legality. If the input 
character is not a <LF>, <CR>, or CTRL U it is assumed to be 
an octal digit. 


To change the contents of the SSR the operator simply types 
the new desired value in octal - leading zeros need not be 
typed. And terminates the input string with a <CR> or <LF> 
depending on the program action desired as described below. 
The input value will be truncated to the last 6 digits typed. 
At teast one digit must be typed on any gives input string 
prior to the terminator before a change to the SSR wiil occur. 


when the input string is terminated with a <CR> the diagnostic 
will continue execution from the point at which it was 
interrupted. If a <CR> is the only thing typed the program 
will continue without changing the SSR. The <LF> differs from 
the <CR> by restarting the program as if it were restarted at 
address 200. 


If a CTRL U is typed at any point in the input string prior to 
the terminator the input value will be disregarded and the 
prompt displayed (SWR = XXXXXX NEW?). 


To set the SSR for the starting switches, first load the 
diagnostic, then hit CTRL G, then start the diagnostic. 


SEQ 0013 
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8.7 LPA=11 (SYSTEM) DIAGNOSTIC SUMMARY 


Diagnostics for the LPA-11 are written at three levels: (1) 
total PDP-11 system, (2) LPA-11 system; and, (3) LPA-11 options. 


Level 1, is designed to isolate a failure to the LPA-11 system. 
ALL options on the PDP-11 are exercised. 


Level 2 diagnostics isolate a failure to the individual option 
within the LPA-11. The level 2 diagnostic is ‘‘CRLPA’. When the 
user runs CRLPA he can pare tell which option diagnostic 
(level 3) to run next. M8254 and M8200-YC errors may ‘‘Look’’ 
alike and ‘’CRLPA’’ may not be able to distinguish between them. 
Arbitration errors will not be detected by this diagnostic. 


Level three diagnostics aid in determining if the error was in 
fact on the option the ‘'CRLPA specified. The user may ‘‘loop’’ on 
the error. Within level three, there are two groups. of 
diagnostics. The first group requires no ‘extra’ work by the 
user in order to run. Group ‘“‘A'’ diagnostics do not check 
arbitration, and require extra time for execution. The second 
group ves. hg requires that the user reconfigure the PDP-11 
ereten, This reconfiguration involves cabling the unibus to the 
LPA's {/0 bus. 


The diagnostic for the M8254 falls into the group ‘'B'’ catagory. 


THE LPA=11XX DIAGNOSTIC KIT WILL INCLUDE: 


crim = tow DIAG. TITLE 
LPA-11XX LEVEL 2 MD-11-CRLPA LPA-11 SYSTEM EXER. 
M8254 ‘s" MD-11-CRLPN M8254 (IPBM) FIELD DIAG. 
AA11K A MD-11-CRLPB LPA/AA11K DIAG. 
B MD-11-DZAAC AA11-K DIAG. 
AR11K A MD-11-CRLPC LPA/AR11 DIAG. #1 
& MD-11-CRLPD LPA/AR11 DIAG. #2 
& MD-11-CRLPE LPA/AR11 DIAG. #3 
B MD-11-DZARA AR11 DIAG. #1 
B MD-11-DZARB AR11 DIAG. #2 
B MD-11-DZARC AR11 DIAG. #3 


SEQ 0014 


orn 


DR11K 


Kwik 


LPS-11 


AD11K 


MR200-YC 


ooowoeeFreewsedgqgeéeeg#»nirsresFrerFuosF ws »¥ 


MD=-11-CRLPF 
MD-11=DZDRG 
MD-11-CRLPG 
MD-11-DZKWK 
MD-11-CRLPH 
MD-11-CRLPI 
MD-11=CRLPJ 
MD-11=DZLPC 
MD-11-DZLPD 
MD-11-DZLPI 
MD-11-CRLPK 
MD-11=DZADL 
MD-11-CRLPL 
MD-11-CRLPM 


LPA/DRIIK DIAG. 
DRI1K DIAG. 
LPA/KWI1K DIAG. 
KWI1K DIAG. 


LPA/LPS=11 DIAG. 
LPA/LPS-11 DIAG. 
LPA/LPS=-11 DIAG. 


LPS-11 DIAG. #1 
LPS-11 DIAG. #2 
LPS-11 DIAG. #3 
LPA/AD11K DIAG. 
AD11K DIAG. 


LPA/DMC-11 DIAG. 
LPA/DMC-11 DIAG. 
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#1 
#2 
#3 


TEST | 
TEST I] 


SEQ 0915 


“AA 


SSS esses esses sess sess 


HISTORY FILE OF CRLPM 


WHRHHHRRReReeeHeteeeTereetereeeeeeee 
VERSION ‘'B'' WAS CREATED BECAUSE OF A CHANGE 10 THE LPA 
MICRO CODE. THIS PROGRAM DID NOT REALLY CHANGE MUCH. 

THE MAIN CHANGE WAS INSTALLING THE NEW VERSION OF 
M8200-YC ROM CODE IN THE .P11 FILE AND USING SWR BIT 4 TO 
INDICATE V4 OR VS MICROCODE BEING VERIFIED. 

THE .RND FILE WAS CLEANED UP FOR UPPER AND LOWER CASE. 


NOTE: THE FILES CRLPLB.MAC AND CRLPMB.MAC ARE THE SAME. 


THE FILES CRLPLB.RND AND CRLPMB.RND ARE ALMOST THE SAME. 


THE .HST FILE WAS CREATED 
THE .CTL FILE WAS CREATED 
THE .OPR FILE WAS CORRECTED 


R. SHOOP 


ReEeeeeteeeeeeeekekteketekeeteeeenateeee 


SEQ 0016 


ony 


SLAVE .MAC1 MACY11 gg dh ane. 24-OCT-80 09:23 F oAGE 2 
CRLPMB.P11 21-OCT-80 15:08 INTRODUCTION TO M8200-¥C DIAGNOSCTIC SEQ 0017 


s*MAINDEC=11-CRLPM-B LPA=DMC-11 DIAGNOSTIC TST II 
+ *COPYRIGHT 1980, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


—|—O DOONAN EFWN — OO ONOVE Wr 


1 STARTING PROCEDURE 

1 LOAD PROGRAM 

1 ;LOAD ADDRESS 000200 

1 > SWR=0 AUTOSIZE M8200-YC 

1 ;SWO7=1 USE CURRENT M8200-YC PARAMETERS 

1 3SWOO=1 INPUT NEW MB8200-YC PARAMETERS 

1 PRESS START 

1 PROGRAM WILL TYPE ‘'MAINDEC-11-CRLPM-B  LPA=DMC-11 DIAGNOSTIC TST II" 
1 PROGRAM WILL TYPE STATUS MAP 

1 PROGRAM WILL TYPE ‘'R'’ TO INDICATE THAT TESTING HAS STARTED 

2 :AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 

2 ;AND THEN RESUME TESTING 

se ; SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 

24 

25 

26 

¢ ;SWITCH REGISTER OPTIONS 

29 j 

30 100000 Sw15=100000 :=1,HALT ON ERROR 

31 040000 $W14=40000 :=1,LOOP ON CURRENT TEST 

32 020000 SW13=20000 3=1, INHIBIT ERROR TYPEOUT 

33 010000 SwW12=10000 3=1,DELETE TYPEOUT/BELL ON ERROR. 

34 004000 Sw11=4000 :=1, INHIBIT ITERATIONS 

35 002000 $w10=2000 :=1,ESCAPE TO NEXT TEST ON ERROR 

% 001000 $w09=1000 :=1,LOOP WITH CURRENT DATA 

37 000400 $w08=400 :=1,LO0P ON ERROR 

38 000200 $w07=200 :=1,USE CURRENT M8200-YC PARAMETERS, =0,AUTOSIZE M8200-YC 
39 000100 $w06=100 t=1. HALT BEFORE CLOCKING MICRO-PROCESSOR INSTRUCTION 
40 000040 sw05=40 

41 000020 $w04=20 USE V4 IN PLACE OF V5 MICRO-CODE ON M8200-YC 
42 000010 $w03=10 sRESELEET M8200-YC'S TO BE TESTED (ACTIVE? 

43 000004 SwO2=4 LOCK ON TEST SELECT 

44 000002 Sw01=2 ‘RESTART PROGRAM AT SELECTED TEST 


45 000001 $w00=1 ; INPUT M8200-YC PARAMETERS 


am 


CRLPMB MACY) 306(1063), 


CRLPMB.P11 


21-0CT-80 


000000 


000007 


177776 
001200 


005746 


022626 


100000 


000001 


. 
Mn pas 09:23 PAGE 3 
:08 GENERAL DEFINATIONS AND EQUIVALENCIES 


sREGISTER DEFINITIONS 


RO=%0 ;GENERAL REGISTER 

R1=%1 :GENERAL REGISTER 

R2=%2 ;GENERAL REGISTER 

R3=%3 ;GENERAL REGISTER 

R4=24 GENERAL REGISTER 

R5=%5 ;GENERAL REGISTER 

SP=%6 SPROCESSOR STACK POINTER 
PC=%7 PROGRAM COUNTER 
;LOCATION EQUIVALENCIES 

PS=177776 ;PROCESSOR STATUS WORD 
STACK=1200 START OF PROCESSOR STACK 


; INSTRUCTION DEFINITIONS 


PUSH1SP=5746 ;DECREMENT PROCESSOR STACK 1 WORD 
POP1SP=5726 ; INCREMENT PROCESSOR STACK 1 WORD 
PUSHRO=10046 ;SAVE RO ON STACK 

POPRO=12600 sRESTORE RO FROM STACK 
PUSH2SP=24646 ;DECREMENT STACK TWICE 
POP2SP=22626 ; INCREMENT STACK TWICE 

-EQUIV EMT,HLT ;BASIC DEFINITION OF ERROR CALL 


BIT DEFINITIONS 


ee ee tt ae et et et et et et et ed et et 
ooooeo°co 
oOo 


SEQ 0018 


on 


CRLPMB 


CRLPMB. 


ooo°oo°o oO 


ee kk ak a at oo cs ot os a St so ot at St oa ot SS Ht tt a St ot 
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000024 
000026 
000030 
000032 
000034 
000036 


000040 
000042 
000044 
000046 
000052 


000174 
000176 


000200 
001000 
001025 


001200 
001202 


000000 


000024 
005346 
000340 
004760 
000340 
004726 
000340 
000040 
000000 
000000 
000000 
003532 
000052 
000000 


000174 
000000 
000000 
000200 
000137 
001000 
005377 

114 


001200 


177570 
177570 
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002002 


040515 047111 
040520 042055 


TRAPCATCHER FOR UNEXPECTED INTERUPTS 


PUMA RR RRR Re Ree Te eee Tete eee eer eeeeeeeeteKeeeenereeeeenerereereeereree 
;TRAPCATCAER FOR ILLEGAL INTERRUPTS 
7 THE STANDARD ‘‘TRAP CATCHER’ IS PLACED 
;BETWEEN ADDRESS 0 TO ADDRESS 776. 
s1T LOOKS LIKE “‘PC+#2 HALT’. 


° 
bs Peeeeekekeeaeeeeeeeeeeereeerekeeeeeeeeetereneneeeeeeneteetetetereteter 


-=0 
;STANDARD INTERRUPT VECTORS 


=24 
-PFAIL :POWER FAIL HANDLER 
340 “SERVICE AT LEVEL 7 
“HLT “ERROR HANDLER 
340 “SERVICE AT LEVEL 7 
“TRPSRV “GENFRAL HANDLER DISPATCH SERVICE 
-. 340 “SERVICE AT LEVEL 7 
a 0 :SAVE FOR ACT-11 OR XXDP 
0 “RETURN ADDRESS IF UNDER ACT-11 OR XXDP 
0 “SAVE FOR ACT-11 OR XXDP 
SENDAD “FOR USE WITH ACT=i1 OR XXDP 
0 :ACT=11 PROGRAM CHARACTERISTICS 
.=176 
DISPREG:0 SOFTWARE DISPLAY REGISTER 
SWREG: 0 ‘SOFTWARE SWITCH REGISTER 
.=200 
JMP START :G0 TO START OF PROGRAM 


-=1000 
MTITLE: .ASCII <377><12>/MAINDEC-11-CRLPM-B/<377> 
eASCIZ /LPA-DMC-11 DIAGNOSTIC TST 11/<377> 


-=1200 
s INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 


DISPLAY:177570 
SWR : 177570 


SEQ 0019 


CRLPMB 


CRLPMB. 


150 


ee et oe ow 2 nw 
DANA 
DOONAOUE WH 


160 


175 


kk kk ek tk ad od od ot os 
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001234 


001236 


001316 


001320 
001322 
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177560 
177562 
177564 
177566 


000000 


000000 


000000 


000000 


001472 
001676 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0020 


; INDIRECT POINTERS TO TELETY°E VECTORS AND REGISTERS 


TKCSR: 177560 TELETYPE KEYBOARD CONTROL REGISTER 
TKDBR: 177562 ; TELETYPE KEYBOARD DATA BUFFER 
TPCSR: 177564 ;TELEPRINTER CONTROL REGISTER 
TPDBR: 177566 ;TELEPRINTER DATA BUFFER 


PROGRAM CONTROL PARAMETERS 


RETURN: 0 ;SCOPE ADDRESS FOR LOOP ON TEST 

NEXT: 0 ;ADDRESS OF NEXT TEST TO BE asst 

LOCK: QO ;ADDRESS FOR LOCK ON CURRENT DAT 

ICOUNT: 3 :NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 
LPCNT: 0 ;NUMBER OF ITEREATIONS COMPLETED 

TSTNO: 0 :NUMBER OF TEST IN PROGRESS 

PASCNT: 0 ;NUMBER OF PASSES COMPLETED 

ERRCNT: 0 ; TOTAL NUMBER OF ERRORS 

LSTERR: 0 PC OF LAST ERROR CALL 


;PROGRAM VARIABLES 


STRTSW: 0 sSWITCHES AT START OF PROGRAM 
STAT: 0 sDM STATUS WORD STORAGE 
CLKX 0 

MASKX 0 

TEMP 1 0 ; TEMPORARY STORAGE 

TEMP2 0 s TEMPORARY STORAGE 

TEMPS 0 s TEMPORARY STORAGE 

TEMP4 0 > TEMPORARY STORAGE 

TEMPS 0 s TEMPORARY STORAGE 

SAVRO 0 ;RO STORAGE 

SAVR1 0 -R1 STORAGE 

SAVR2 0 ;R2 STORAGE 

SAVR3 0 3R3 STORAGE 

SAVR4S 0 R4 STORAGE 

SAVRS: 0 :R5 STORAGE 

SAVSP 0 sSTACK POINTER STORAGE 
SAVPC 0 > PROGRAM COUNTER STORAGE 
ZERO: 0 

ONE : 1 

MEMLIM: 0 + HIGHEST LOCATION FOR NPR'S 
DMACTV: .BLKW 1 >M8200-YC'S SELECTED rath 
DMNUM: .BLKW 1 SOCTAL NUMBER OF M8200-YC'S 
SAVACT: .BLKW 1 sORIGINAL ACTV DEVICES 
SAVNUM: .BLKW 1 :WORKABLE NUMBER 

oe 0 :POINTER TO RUNNING DEVICE. 
EV 

CREAM: DM.MAP-6 ; TABLE POINTER. 


MILK: CNT.MAP=4 ; TABLE POINTER 


om 


CRLPMB 
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MO OCONOUSWR — 
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001324 


001327 


001330 
001330 
001332 
001334 
001336 
001340 
001342 
001344 
001346 
001350 
001352 
001354 
001356 
001360 
001362 
001364 
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104400 


005626 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0021 


PROGRAM CONTROL FLAGS 


INIFLG: .BYTE 0 ; PROGRAM ay tae FLAG 
ERRFLG: .BYTE 0 ;ERROR OCCURED FLAG 
LOKFLG: .BYTE 0 ;LOCK ON CURRENT TEST FLAG 
QV.FLG: .BYTE 0 :QUICK VERIFY FLAG. 
_— ;ON FIRST PASS OF EACH M8200-YC ITERATIONS WILL BE SUPPR 
-EVE 


;DEFINITIONS FOR TRAP SUBROUTINE — 
;POINTERS TO SUBROUTINES CAN BE FOUN 
IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 


SERRA AREER EAE AE EEA AEEREREREAERAEAEAEEAAEAAAEAEREAEAAEAEARARARAE NES 


TRPTAB 


SCOPE=TRAP+0 ;CALL TO SCOPE LOOP AND ITERATION HANDLER 
SCOPI=TRAPS] ;CALL TO LOOP ON CURRENT DATA HANDLER 
TYPE=TRAP#+2 ‘ :CALL TO TELETYPE OUTPUT ROUTINE 
INSTRETRAP?3" :CALL TO ASCII STRING INPUT ROUTINE 
INSTER=TRAPSG ;CALL TO INPUT ERROR HANDLER 

PARAM=TRAP+5 ;CALL TO NUMERICAL DATA INPUT ROUTINE 
savos=TRAPe6 ;CALL TO REGISTER SAVE ROUTINE 
RESOS=TRAP*? :CALL TO REGISTER RESTORE ROUTINE 
CONVRT=TRAP+10 ;CALL TO DATA OUTPUT ROUTINE 

CNVRT=TRAPS IT :CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
MSTCLR= =TRAPS12 :CALL TO ISUE A MASTER CLEAR 

DELAY= -TRAPSI3 ;CALL TO DELAY 

ROMCLK=TRAP S14 :CALL TO CLOCK ROM ONCE 

DATACLK=TRAP#15 ;CALL TO CLK DATA 

TIMER=TRAPS 16 :CALL TO DELAY A CLOCK TICK 


. 
ji eteeetaeaeeeteetereteretetitteeaeneeeetenereeeeeeeeeAeeneeenereeteese 


CRLPMB MACY11 30G6(1063) 


CRLPMB.P11 


001366 
001370 
001372 


001374 
001376 


001414 


001416 


001500 
001500 
001502 
001504 
001506 
001510 
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000000 
000000 
000000 


090000 
000000 


000000 


000000 
001460 


001500 
000001 


000001 
000001 


000001 
000001 


000001 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
:M8200-YC CONTROL INDICATORS FOR CURRENT M8200-YC UNDER TEST 
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STATI: 0O 
STAT2: 0 
STATS: 0 


;M8200-YC VECTOR AND REGISTER INDIRECT POINTERS 


DMRVEC: 0 ;POINTER TO M8200-YC RECEIVER INTERRUPT VECTOR 

DMRLVL: 0 ;POINTER TO M8200-YC RECEIVER INTERRUPT SERVICE PS 
DMTVEC: 0 POINTER TO M8200-YC TRANSMITTER INTERRUPT VECTOR 
DMTLVL: 0 POINTER TO M8200-YC TRANSMITTER INTERRUPT SERVICE PS 
DMCSR: 0 ;POINTER TO M&200-YC CONTROL STATUS REGISTER 

DMCSRH: 0 ;POINTER TO M8200-YC CONTROL STATUS REGISTER HIGH BYTE. 
DMCTL: 0 ;POINTER TO M8200-YC CONTOL OUT REGISTER 

DMPO4 3 POINTER TO M8200-YC PORT REGISTER(SEL 4) 


POINTER TO M8200-YC PORT REGISTER(SEL 6) 


:CONTROL STATUS REGISTER FOR M8200-YC NUMBER OC 
;VECTOR FOR M8200-YC NUMBER 00 

;DDCMP LINE# FOR M8200-YC NUMBER 00 

;3RD STATUS WORD 


:CONTROL STATUS REGISTER FOR M8200-YC NUMBER 01 
;VECTOR FOR M8200-YC NUMBER 01 

:DDCMP LINE# FOR M8200-YC NUMBER 01 

:3RD STATUS WORD 


CONTROL STATUS REGISTER FOR M8200-YC NUMBER 02 
;VECTOR FOR M8200-YC NUMBER 0 

;DDCMP LINE# FOR M8200-YC NUMBER 02 

73RD STATUS WORD 


CONTROL STATUS REGISTER FOR M8200-YC NUMBER 03 
sVECTOR FOR M8200-YC NUMBER 03 

;DDCMP LINE# FOR M8200-YC NUMBER 03 

33RD STATUS WORD 


CONTROL STATUS REGISTER FOR M8200-YC NUMBER 04 
;VECTOR FOR M8200-YC NUMBER 04 

:DDCMP LINE# FOR M8200-YC NUMBER 04 

73RD STATUS WORD 


DMS300: .BLKW 
DMCRO1: .BLKW 


DMS301: .BLKW 
DMCRO2: .BLKW 


DMS302: .BLKW 
DMCRO3: .BLKW 


DMS303: .BLKW 
DMCRO4: .BLKW 


— at ad od = 


DMS304: .BLKW 


SEQ 0022 


a 


c.@ 
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304 061550 000001 DMCROS: .BLKW 1 CONTROL STATUS REGISTER FOR M8200-YC NUMBER 05 
305 001552 000001 DMS105: .BLKW 1 :VECTOR FOR M8200-YC NUMBER 05 

306 001554 000001 DMS205: .BLKW 1 ;DDCMP LINE# FOR M8200-YC NUMBER 05 

4 001556 000001 DMS305: .BLKW 1 :3RD STATUS WORD 

309 001560 000001 DMCRO6: .BLKW 1 CONTROL STATUS REGISTER FOR M8200-YC NUMBER 06 
310 1562 000001 DMS106: .BLKW 1 :VECTOR FOR M8200-YC NUMBER 0 

311 001564 000001 DMS206: .BLKW 1 :DDCMP_LINE# FOR mB200-VC NUMBER 06 

31 001566 000001 DMS306: .BLKW 1 :3RD STATUS WORD 

314 001570 000001 DMCRO7: .BLKW 1 s;CONTROL STATUS REGISTER FOR M8200-YC NUMBER 07 
315 001572 000001 DMS107: .BLKW 1 ;VECTOR FOR M8200-YC NUMBER 07 

316 001574 000001 DMS207: .BLKW 1 :DDCMP LINE# FOR M8200-YC NUMBER 07 

He 001576 000001 DMS307: .BLKW 1 ;5Ro STATUS WORD 

319 001600 000001 DMCR10: .BLKW 1 CONTROL STATUS REGISTER FOR M8200-YC NUMBER 10 
320 001602 000001 DMS110: .BLKW 1 ;VECTOR FOR M8200-YC NUMBER 1 

321 001604 000001 DMS210: .BLKW 1 ;DDCMP LINE# FOR M8200-YC NUMBER 10 

$56 001606 000001 DMS310: .BLKW 1 :3RD STATUS WORD 

324 001610 000001 DMCR11: .BLKW 1 ;CONTROL STATUS REGISTER FOR a ~YC NUMBER 11 
325 001612 000001 DMS111: .BLKW 1 ; VECTOR FOR M8200-YC NUMBER 

326 001614 000001 DMS211: .BLKW 1 :DDCMP LINE# FOR M8200-YC NUMBER 11 

$0 001616 000001 DMS311: .BLKW 1 :3RD STATUS WORD 

329 001620 000001 DMCRi2: .BLKW 1 CONTROL STATUS REGISTER FOR M8200-YC NUMBER 12 
330 001622 000001 DMSil2: .BLKW 1 ;VECTOR FOR M8200-YC NUMBER 12 

331 001624 000001 DMS212: .BLKW 1 ;DDCMP_LINE# FOR M8200-YC NUMBER 12 

$35 001626 000001 DMS312: .BLKW 1 :3RD STATUS WORD 

334 001630 000001 DMCR13: .BLKW 1 CONTROL STATUS REGISTER FOR M8200-YC NUMBER 13 
335 001632 000001 DMS113: .BLKW 1 ;VECTOR FOR M8200-YC NUMBER 13 

336 001634 000001 DMS213: .BLKW 1 :DDCMP LINE# FOR M8200-YC NUMBER 13 

33 001636 000001 DMS313: .BLKW 1 :3RD STATUS WORD 

339 001640 00000 DMCR14: .BLKW 1 ;CONTROL STATUS REGISTER 4 8 or -~YC NUMBER 14 
340 001642 000001 DMS114: .BLKW 1 VECTOR FOR M8200-YC NUMBER 

341 001644 00000 DMS214: .BLKW 1 ;DDCMP LINE# FOR M8200-YC NUMBER 14 

508 001646 000001 DMS314: .BLKW 1 :3RD STATUS WORD 

344 001650 000001 DMCR15: .BLKW 1 ;CONTROL STATUS REGISTER FOR M8200-YC NUMBER 15 
345 001652 000001 DMS115: .BLKW 1 ;VECTOR FOR M8200-YC NUMBER 15 

346 001654 000001 DMS215: .BLKW 1 :DDCMP LINE# FOR M8200-YC NUMBER 15 

Sa 001656 000001 DMS315: .BLKw 1 ;35RD STATUS WORD 

349 001660 00000 DMCR16: .BLKW 1 ;CONTROL STATUS REGISTER «J ss NUMBER 16 
350 1662 000001 DMS116: .BLKW 1 :VECTOR FOR M8200-YC NUMBER 

351 1664 000001 DMS216: .BLKW 1 ;DDCMP LINE# FOR M8200-YC NUMBER 16 

328 001666 00000 DMS316: .BLKW 1 :3RD STATUS WORD 

354 001670 000001 DMCR17: .BLKwW 1 ;CONTROL STATUS REGISTER FOR M8200-YC NUMBER 17 
355 001672 000001 DMS117: .BLKW 1 :VECTOR FOR M8200-YC NUMBER 17 

356 001674 000001 DMS217: .BLKW 1 :DDCMP LINE# FOR mBD00-¥C NUMBER 17 

$25 001676 000001 DMS317: .BLKW 1 ;3RD STATUS WORD 

359 001700 000000 DM.END: 000000 


 . 
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CRLPMB.P11 21-0CT-80 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0924 
360 
He :M8200-YC PASS COUNT AND ERROR COUNT TABLE 
363 > 
364 001702 CNT.MAP: 
365 001702 000000 PACTOO: 0 :PASS COUNT FOR M8200-YC NUMBER 00 
366 001704 000000 ERCTOO: 0 sERRGR COUNT FOR M8200-YC NUMBER 00 
368 001706 000000 PACTO1: 0 ;PASS COUNT FOR M8200-YC NUMBER 01 
368 001710 000000 ERCTO1: 0 sERROR COUNT FOR M8200-YC NUMBER 01 
371 001732 000000 PACTO2: 0 :PASS COUNT FOR M8200-YC NUMBER 02 
372 001714 000000 ERCTO2: 0 sERROR COUNT FOR M8200-YC NUMBER 02 
374 001716 000000 PACTO3: 0 :PASS COUNT FOR M8200-YC NUMBER 03 
309 001720 000000 ERCTO3: 0 sERROR COUNT FOR M8200-YC NUMBER 03 
377 001722 000000 PACTO4: 0 :PASS COUNT FOR M8200-YC NUMBER 04 
378 001724 000000 ERCTO4: 0 sERROR COUNT FOR M8200-YC NUMBER 04 
380 001726 000000 PACTOS: 0 :PASS COUNT FOR M8200-YC NUMBER 05 
=a 001730 000000 ERCTOS: 0 sERROR COUNT FOR MB200-YC NUMBER 05 
383 001732 000000 PACTO6: 0 :PASS COUNT FOR M8200-YC NUMBER 06 
334 001734 000000 FRCTO6: 0 sERROR COUNT FOR M8200-YC NUMBER 06 
386 001736 000000 PACTO7: 0 :PASS COUNT FOR M8200-YC NUMBER 07 
337 001740 000000 ERCTO7: 0 sERROR COUNT FOR M8200-YC NUMBER 07 
389 001742 000000 PACT10: 0 :PASS COUNT FOR M8200-YC NUMBER 10 
390 001744 000000 ERCT10: 0 sERROR COUNT FOR M8200-YC NUMBER 10 
342 001746 000000 PACT11: 0 :PASS COUNT FOR M8200-YC NUMBER 11 
a? 001750 000000 ERCT11: 0 sERROR COUNT FOR M8200-YC NUMBER 11 
395 001752 000000 PACT12: 0 :PASS COUNT FOR M8200-YC NUMBER 12 
38 001754 000000 ERCT12: 0 sERROR COUNT FOR M8200-YC NUMBER 12 
398 001756 000000 PACT13: 0 :PASS COUNT FOR M8200-YC NUMBER 13 
399 001760 000000 ERCT13: 0 sERROR COUNT FOR M8200-YC NUMBER 13 
401 001762 000000 PACT14: 0 :PASS COUNT FOR M8200-YC NUMBER 14 
402 001764 000000 ERCT14: 0 sERROR COUNT FOR M8200-YC NUMSER 14 
404 001766 000000 PACT15: 0 :PASS COUNT FOR M8200-YC NUMBER 15 
05 001770 000000 ERCT15: 0 ZERROR COUNT FOR M8200-YC NUMBER 15 
407 001772 000000 PACT16: 0 :PASS COUNT FOR M8200-YC NUMBER 16 
oe 001774 000000 ERCT16: 0 sERROR COUNT FOR M8200-YC NUMBER 16 
410 001776 000000 PACT17: 0 :PASS COUNT FOR M8200-YC NUMBER 17 
411 002000 000000 ERCTi7: 0 sERROR COUNT FOR M8200-YC NUMBER 17 


SSS... 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


FORMAT OF STATUS TABLE 


10 09 06 07 06 05 04 03 02 01 00 


I 
L ee oe Te ee Pe ee ee CSR 


ee I 
. * eS B'S Ce. | a 9 STAT1 


I 
o3 : a ee i Oe e «] STAT2 


os re 
Ie] * I] STATS 
en ws 


CSR: 


STAT1: 


STAT2: 


STAT3: 


CONTAINS M8200-YC CSR ADDRESS 


BITS 00-08 IS M8200-YC VECTOR _— 

=1 MICRO-PROCESSOR HAS CRA 

0 MICRO-PROCESSOR HAS CROM 

1 TURNAROUND CONNECTOR IS ON 

0 NO TURNAROUND CONNECTOR 

0 LINE UNIT IS AN M8201 

1 LINE UNIT IS AN M8202 

1 NO LINE UNIT 

9-11 1S M8200-YC BR PRIORITY LEVEL 


LOW BYTE IS SWITCH PAC#1 (DDCMF LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD) 


BITO=1 DO FREE RUNNING TESTS ON KMC 


SEQ 0025 


rt - 


509 


PMAAMAAUGA UIT 
ee ee ee et ed ed 
@ONOWEFWN—O 
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000340 


901702 
002002 
001234 
000001 
002002 


000006 


177777 


000176 


001324 
003532 
001000 


000042 


001236 
000001 


001236 
001306 


177776 


000024 
001314 


177020 


001202 


001200 


000042 


001236 


001236 
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N 2 


;PROGRAM INITIALIZATION 

sLOCK CUT INTERRUPTS 

;SET UP PROCESSOR STACK 

SET UP POWER FAIL VECTOR 

;CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
sTYPE TITLE MESSAGE 


: we #340,PS ;LOCK Dar a ti, 


OV #STACK,SP ;SET UP 
MOV #.PFAIL ,a#24 SET UP POWER FAIL VECTOR 
MOV DMNUM , SAVNUM ;SAVE NUMBER OF or hie SYSTEM. 


CLR SWFLG ;CLEAR SOFT TYPEOUT F 

CLRB ERRFLG ;CLEAR ERROR FLAG 

CLRB QV.FLG ;ZERO QUICK na ia FLAG 

MOV #DM.MAP-10,CREAM:GET MAP POINTER 

MOV WCNT.MAP=4,MILK ;GET PASS COUNT MAP POINTER 
MOV #B1T15,RUN :POINT POINTER TO FIRST DEVICE. 
MOV #CNT.MAP,RO PASS COUNT POINTER TO RO 
CLR (RO)+ SCLEAR TABLE 

CMP #CNT.MAP+100,RO ;DONE YET? 

BNE 23% sKEEP GOING 

CLR LSTERR ;CLEAR LAST ERROR POINTER 
MOV #1, TSTNO ;SET UP FOR TEST 1 


MOV #.START,RETURN :SET UP FOR POWER FAIL BEFORE 
TESTING STARTS 


MOV av6,-(SP) SSAVE CURRENT VECTORS 

MOV av4.-(SP) : 

MOV #63086 'SET UP FOR TIMEOUT 

MOV #177570, SWR ‘SET SWR TO HARD SWR ADDRESS 

MOV #177570.DISPLAY :SET DISPLAY TO HARD SWR ADDRESS 

CMP #-1,aSwWR “REFERENCE HARDWARE SWITCH REGISTER 
BEQ 6$+2 [IF = -1 USE SOFT SWR ANYWAY 

BR 7$ ‘IF IT EXISTS AND NOT = -1 USE HARD SWR 
CMP (SP)+, (SP)+ SADJUST STACK 

MOV #SWREG, SWR SPOINTER TO SOFT SWR 

MOV #DISPREG,DISPLAY:POINTER TO SOFT DISPLAY REG 

MOV (SP)+, au ;RESTORE VECTORS 

MOV (SP) +. a#6 

TSTB —C INI FLG “HAS INIT EALIZATION BEEN PERFORMED 
BNE 208 “BR 

CHP HSENDAD, ,ana2 SIF Acts h AUTOMATIC MODE, DON'T TYPE ID 
TYPE MTITLE :TYPE TITLE MESSAGE 

TYPE  <ROM1 [TYPE VERSION MESSAGE 

TYPE ~MESWCH ‘TYPE SWITCH 7 MESSAGE 

JSR PC, CKSWR [CHECK FOR SOFT SwWR 

MOV aSuR,STRTISW SSTORE STARTING SWITCHES 

TST aas2 :1S IT RUNNING IN AUTO MODE? 

BEQ +6 [BR IF NO 

CLR STRTSW “IF YES, CLEAR SWITCHES 

BIT #SWOO,STRTSW :IF SWOO=1, QUESTIONS ARE ASKED. 

BNE 17$ ‘BR IF SwO 06-1 

TSTB ss STRTSW “BIT7=12? 

BPL 17$ ‘BR IF SwO7=0 

TST DMACTV TARE ANY DEVICES SELECTED? 
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CRLPMB.P11 21-OCT-80 15:08 PROGRAM INITIALIZATION AND START UP. 
519 002314 001006 BNE 16$ :BR IF YES 
$20 002316 104402 007201 TYPE, NOACT [NO DEVICES SELECTED. 
521 boesze 000000 HALT ‘STOP THE SHOW 
| 322 002324 000776 BR .-2 ‘DISQUALIFY CONTINUE SWITCH 
| § 002326 004737 010556 17$: JSR PC,AUTO.SIZE  :GO0 DO THE AUTO SIZE 
| = §24 002332 «105737 001324 16$: TSTB  INIFLG SFIRST TIME? 
525 002336 001410 BEQ 21$ “BR IF YES 
526 002340 105737 001236 TSTB «= STRTSW ‘IF USING SAME PARAMETERS DONT TYPE MAP 
| 527 002344 100431 BMI 1$ 
528 002346 032737 000006 001236 BIT #BITI'BITZ,STRTSW;1S TEST NO. OR LOCK SELECTED 
529 002354 001403 BEQ 24$ :{F NO THEN TYPE STATUS 
530 002356 000424 BR 1$ ‘IF YES DO NOT TYPE STATUS 
531 002360 005137 001324 21$: COM INIFLG :SET FLAG 
532 002 104402 006240 24$: TYPE  ,XHEAD “TYPE HEADER 
533 002370 012704 001500 MOV #DM.MAP,RG SET POINTER 
| 534 002374 010437 001246 5$: MOV R4, TEMP A =SET ADDRESS 
$35 002400 012437 001250 MOV (R&)+, TEMP2 “SET CSR 
536 002404 001411 BEQ 1$ ‘ALL DONE IF ZERO 
537 002406 012437 001252 MOV (RO) +, TEMP3 “SET STATI 
538 002412 012437 001254 MOV (RG) + TEMPS “SET STAT2 
539 0024616 012437 001256 MOV (RG) +, TEMPS “SET STAT3 
540 002422 104410 CONVRT :TYPE OUT STATUS MAP 
541 002424 007520 XSTATO : 
542 002426 000762 BR 5$ 
548 002430 012700 001500 1$: MOV #DM.MAP,RO :RO POINTS TO STATUS TABLE 
545 PL RAARARAKAKHKAAAAAAAHE KATA ee eee KAKA eKKeKeKAKeKeKKtAKKeeKeeeeeeeee 
546 t:*AUTO SIZE TEST 
547 ieTHIS TEST VERIFYS THAT THE M8200-YCS AND/OR KMC11S ARE AT THE CORRECT FLOATING 
548 TRADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
549 :eCHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,DH,DQ,DU,DUP,LK,DMC,DZ,KMC). 
550 ;te]F THERE ARE NO OTHER FLOATING DEVICES BEFORE THE M8200-YC, THE FIRST 
551 ::#M8200-YC ADDRESS IS 760070, KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT 
552 ADDRESS 760000. THIS TEST MAY REQUIRE 2 OR MORE ATTEMPTS TO GET THE 
553 i*RIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT IT TOLD 
554 <:eYOU THE FIRST TIME, IT MAY COME BACK AND TELL YOU A DIFFERENT ADDRESS 
555 teTHE NEXT TIME YOU RUN IT. PLEASE HAVE PATIENCE, THE FINAL ADDRESS 
356 ie*WILL BE CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DMC'S ARE 
**@ - 
558 eee eeeeeeeeeeeseeeeeneeeneeereeeneedeneeeeeeneeeteeeeeeereareeeerere 
559 
560 002434 013746 000004 MOV aes ,-(SP) :SAVE LOC 4 
561 002440 013746 000006 MOV a#6,-(SP) “SAVE LOC 6 
562 002444 005037 000006 CLR as6 “CLEAR VEC+2 
563 002450 005037 001252 CLR TEMP3 “CLEAR FLAG 
564 002454 005605 CLR RS 'R5S=O=DMC, R5S=-1=KMC 
565 002456 011037 001404 AUSTRT: MOV (RO) ,DMCSR “GET NEXT DMC CSR 
566 002462 001564 BEQ AUGONE “BR IF DONE 
567 002464 005705 TST RS “DMC OR KMC? 
568 002466 001005 ‘ BNE 1$ BR IF KMC 
569 002470 032760 100000 000002 BIT WB1T15,2(RO) | :CHECK FOR DMC CSR 
570 002476 001061 BNE SKIP “SKIP IF NOT DMC 
571 002500 000404 BR 2$ :1TS A DMC SO CONTINUE 
572 002502 032760 100000 000002 1%: BIT #BIT15,2(R0)  :CHECK FOR KMC CSR 
573 002510 001454 BEQ SKIP ‘SKIP IF NOT KMC 
574 002512 012737 002704 000004 2%: MOV #NODEV ae “SET UP FOR TIMEOUT 
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298 PROGRAM INITIALIZATION AND START UP. 


000006 
000010 


003020 
160010 


002710 
003032 


100000 


100000 


001404 
000010 
000010 
001404 


000010 
000010 
001404 


003032 


001252 


002710 


177777 
001262 


000004 


000002 


900002 


003032 


001276 


001252 


3$: 
4$: 


FLOAT: 


, FY: 


NODEV: 


ERR: 


c 3 


RS DMC OR KMC? 


3$ [BR IF KMC 
£6.83 :R3 Is COUNT OF DEVICES BEFORE DMC 
#10,R3 ‘RB ti COUNT OF DEVICES BEFORE KMC 
#DEVTAB,R2 :R2 1S DEVICE TABLE PONTER 
#160010, R1 :START WITH ADDRESS 180010 

‘CHECK ADDRESS IN R1 
(h2> RG ‘IF NO TIMEOUT, GET NEXT ADDRESS 
RG RI SIN R1 
R1 ; 
R4,R1 
R3 SANY MORE DEVICES TO CHECK FOR? 
FLOAT ‘BR IF YES 
#ERR, aes [OK ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT 
R1,XLOC [SAVE FIRST DMC/KMC ADDRESS 
RS [DMC OR KMC? 


i$ BR IF KMC 

#B1T15,2 (RO) ; CHECK FOR DMC CSR 
SKIP :SKIP IF NOT DMC 

2$ ;1TS A DMC SO CONTINUE 
#B1T15,2 (RO) :CHECK FOR KMC CSR 

SKIP SKIP IF NOT KMC 


(R1) : CHECK + — 
R1,DMCSR ;DOES IT MATCH 
K :BR IF ves 
#10,R1 :GET NEXT DMC ADDRESS 
FY IT AGAIN 
#10,R0 SKIP TO a CSR IN TABLE 
(RO) ,DMCSR :GET NEXT CSR 
AUDONE :BR IF DONE 
FY sELSE CONTINUE 
#10,R0 :SKIP_TO NEXT DMC CSR 
#10,XLOC UPDATE EXPECTED DMC/KMC ADDRESS 
(RO) ,DMCSR ;GET NEXT DMC/KMC CSR 
AUDONE ;BR_IF DONE 
XLOC,R1 :GET EXPECTED DMC/KMC ADDRESS 
FY ; CONTINU 
(R2)+,-(R3) :0N TIMEOUT INC R2, DEC R3 
TEMPS CHECK FLAG IF = 0 TYPE HEADER 
1$ SKIP HEADER 


:TYPEOUT HEADER MESSAGE 

: CONFIGURATION ERROR!!! ! 
#WERR ,SAVPC SAVE PC FOR TYPEOUT 

; TYPE OUT ERROR PC 


‘TYPE REST OF HEADER 


#-1, TEMPS [SET FLAG SO IT ONLY GETS TYPED ONCE 
R1,SAVR1 “SAVE R1 FOR TYPEQUT 
: TYPE CSR VALUES 
RS “DMC OR KMC ? 
3$ [BR IF KMC 


SEQ 0028 


002764 
66 


wnrn———o 


52 
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15:0 


002 


004 
002 


177777 
001500 


000006 
000004 
000010 


006155 


176074 
006016 
176054 
001306 


000300 
000302 


001000 


001236 


001312 


001306 


PROGRAM INITIALIZATION AND START UP. 


DMCM 
BR 4$ 
3$: TYPE 
KMCM 
4$: CMP (SP)+,(SP)+ 
ee OK 
ERRPC: 1 
BYTE 6,2 
SAVPC 
CONTAB: 2 
BYTE 6,4 
XLOC 
BYTE 6,2 
DMCSR 
DEVTAB: .BYTE 7 
BYTE 17 
-BYTE 7 
BYTE 7 
-BYTE 7 
BYTE 7 
-BYTE 7 
-BYTE 7 
EVEN 
XLOC: 0 
AUDONE: TST RS 
BNE 1$ 
MOV #-1,R5 
MOV #DM.MAP,RO 
BR AUSTRT 
1$ MOV (SP)+,a%6 
MOV (SP)+,a#4 
BIT #SWO3,STRTSW 
BEQ $ 
TYPE »MNEW 
CLR RO 
HALT 
CMP aSWR,SAVACT 
BLOS 23 
TYPE »MERRS 
HALT 
BR .72 
2$: MOV aSWR ,DMACTV 
MOV DMACTV,RO 
HALT 
3$: MOV #300,R0 
MOV #302,R1 
4$: MOV R1,(RO)+ 
CLR (R1)+ 


CMP (RO)+,(R1)+ 
CMP Sopdet 


;TEST START AND RESTART 


SEQ 0029 
; CONTINUE 


ADJUST STACK 
:BR TO GET OUT 


: DMC? 

:BR IF KMC AND a DONE 
;SET RS TO -1 (KMC) 

;RESET ~ &:, START OF TABLE 


:60 D 

RESTORE LOC ? 

RESTORE LOC 4 

aie ee DEVICES?? 


TYPE THE MESSAGE. 

ZERO DATA LIGHTS 
WAIT FOR USER TO Hoy WHAT DEVICES TO RUN 
:1S THE NUMBER VALID 
:BR IF NUMBER IS OK. 

:TELL USER OF INVALID NUMBER. 
:STOP EVERY THING. 
;RESTART THE PROGRAM AGAIN. 
:GET NEW DEVICE PATTERN 
;SHOW THE USER WHAT HE SELECTED. 
CONTINUE DYNAMIC SWITCHES. 
;PREPARE TO CLEAR THE FLOATING 
sVECTOR AREA. 300-776 
3START PUTTING ‘‘PC+2 = HALT" 
;IN VECTOR AREA. 
;POP POINTERS 
:ALL DONE?? 
;BR IF NO. 


— 3 
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687 003162 012706 001200 -BEGIN: MOV #STACK,SP 3SET UP STACK 
688 003166 013746 000006 MOV a#6,-(SP) :SAVE LOC 6 
689 003172 013746 000004 MOV aad. =(SP) “SAVE LOC 4 
690 003176 005000 CLR RO :START AT 0 
691 003200 012737 003244 000004 MOV #2$,a84 ‘SET UP FOR TIME OUT 
692 003206 005037 000006 CLR av ‘TO AUTOSIZE MEMORY 
693 003212 005720 6$: TST (RO) + * CHECK ADDRESS IN RO 
694 003214 022700 157776 CMP #157776,RO ‘IS IT AT LEAST 28K 
695 003220 001374 BNE 6$ BR IF nD 
696 003222 162700 007776 SUB #7776,R0 : SAVE 2k FOR MONITORS 
697 003226 010037 001304 7$: MOV RO,MEMLIM ;STORE MEMORY LIMIT 
698 003232 012637 000004 MOV (SP) +, aa SRESTORE LOC 4 
699 003236 012637 000006 MOV (SP)+.ae6 “RESTORE LOC 6 
700 003242 000413 BR 10$ : CONT INUE 
701 003244 022626 2$: CMP Ngiey (SP) + sADJUST STACK 
702 003246 162700 000004 SUB ;GET LAST GOOD ADDRESS 
703 003252 162700 007776 SUB rey RO : SAVE 12k FOR MONITORS 
704 003256 022700 030000 CMP #30000,R0 T 8k? 
705 003262 001361 BNE 7$ ‘an | NO 
706 003264 012700 037400 MOV #37400 7RO ‘IF ax DON'T SAVE 2k 
707 003270 000756 BR 7$ ; 
708 003272 012737 000340 177776 10%: MOV #340,PS “LOCK OUT INTERRUPTS 
709 003300 032737 000004 001236 BIT #BIT2,STRTSW  :CHECK FOR LOCK ON TEST 
710 003306 001411 BEQ 1$ 7BR IF NO LOCK DESIRED. 
711 003310 104402 006054 TYPE »MLOCK sTYPE LOCK SELECTED. 
712 003314 012737 000240 003622 MOV #NOP,TTST ;ADJUST SCOPE ROUTINE. 
713 003322 012737 000240 003624 MOV #NOP.TTST#2 ‘SET UP TO LOCK 
714 003330 000406 BR 3$ :CONTINUE ALONG. 
715 003332 013737 003740 003622 18: MOV BRW,TTST ;PREPARE NORMAL SCOPE ROUTINE 
716 003340 013737 003742 003624 MOV BRX,TTST+#2 sLOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
717 003346 012737 010124 001214 3$: MOV #CYCLE,RETURN sSTART AT “'CYCLE’’ FIND WHICH DEVICE TO TEST 
718 003354 032737 000002 001236 4$: BIT #Sw01,STRTSW :1S TEST NO. SELECTED? 
719 003362 001002 BNE 5$ “BR IF YES 
720 003364 104402 005766 TYPE “MR ‘TYPE R 
721 003370 000177 175620 5$: JMP @RE TURN ;START TESTING 


oo 
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CRLPMB.P11 21-0CT-80 15:08 END OF PASS ROUTINE SEQ 0031 
722 sEND OF PASS 
723 :TYPE NAME OF TEST 
724 SUPDATE PASS COUNT 
725 CHECK FOR EXIT TO ACT=-11 
6 sRESTART TEST 
728 003374 000005 .EOP: RESET ;MAKE THE WORLD CLEAN AGAIN. 
729 003376 095037 001234 CLR LSTERR sCLEAR LAST ERROR PC 
730 003402 105037 0601325 CLRB ERRFLG :CLEAR ERROR FLAG 
731 003406 0605237 001230 INC PASCNT ;UPDATE PASS COUNT 
732 12 013777 1230 175560 MOV PASCNT ,aDISPLAY :DISPLAY PASS COUNT 
733 003420 104402 005743 TYPE »MEPASS ;TYPE END PASS 
734 003424 104402 006103 TYPE »MCSRX sTYPE CSR 
735 003430 104411 003556 CNVRT ,XCSR :SHOW IT 
736 003434 104402 006111 TYPE »MVECX sTYPe VECTOR 
737 003440 104411 003564 CNVRT =, XVEC :SHOW IT 
738 003444 104402 006117 TYPE »MPASSX sTYPE PASSES 
739 003450 104411 003572 CNVRT ,XPASS :SHOW IT 
740 003454 104402 006130 TYPE »MERRX s TYPE ERRORS 
741 003460 104411 003600 CNVRT ,XERR 7SHOW IT 
742 003464 013700 001322 MOV MILK,RO :GET POINTER TO PASS COUNT 
743 003470 013720 001230 MOV PASCNT, (RO)+ :STORE PASS COUNT FOR THIS M8200-YC 
744 003474 013720 001232 MOV ERRCNT, (RO)+ STORE ERROR COUNT FOR THIS M8200-YC 
745 003500 005337 001314 DEC SAVNUM * ARE ALL obewices TESTED? 
746 0063504 001017 BNE RESTRT :BR IF 
747 003506 112737 000377 001327 MOVB #377,QV.FLG :SET THE “aurce VERIFY FLAG. 
748 003514 013737 001310 001314 MOV DMNUM , SAVNUM ;RESTORE THE COUN 
749 003522 013701 000042 MOV a#42,R1 [CHECK FOR ACT-11 On DDP 
750 003526 001406 BEQ RESTRT :IF NOT, CONTINUE TESTING 
751 003530 000005 RESET STOP THE SHOW--CLEAR THE WORLD 
752 003532 SENDAD: 
753 003532 004711 JSR PC,(R1) 
754 003534 000240 NOP 
755 003536 000240 NOP 
756 003540 000240 NOP 
757 003542 000240 NOP 
758 003544 012737 010124 001214 RESTRT: MOV #CYCLE ,RETURN 
759 003552 000137 010124 JMP CYCLE 
760 003556 000001 XCSR: 1 
761 003560 006 002 ‘ -BYTE 6,2 
762 003562 001404 DMCSR 
763 003564 000001 XVEC: 1 
764 003566 004 002 BYTE 4,2 
765 003570 001374 DMRVEC 
766 003572 000001 XPASS: 1 
767 003574 006 002 .BYTE 6,2 
768 003576 001230 PASCNT 
769 003600 000001 XERR: 1 
770 003602 006 002 BYTE 6,2 
or 003604 001232 ERRCNT 
v SCOPE LOCP AND INTERATION HANDLER 

4 fm rere enn nee eee neecee 

775 
776 003606 004737 007652 .SCOPE: JSR PCL CKSWR sCKECK FOR SOFT SWR 


777 +~003612 010016 MOV RO, (SP) ;SAVE RO ON THE STACK 


G 3 
CRLPMB MACY11 30G(1063) 26-0(T-80 09:23 
P11 15:08 


PAGE 17 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


CRLPMB. 21-0CT-80 SEQ 0032 
778 003614 032777 040000 175360 BIT #BIT14,aSwR :""LOOP ON THIS TEST’? 
779 003622 001407 TTST: BEQ 1$ ;BR IF NO (IF LOCK SwO1= 1; THIS LOC =240) 
780 003624 000437 BR 3$ :GOTO 3$ CIF LOCK SWO1=1; THIS LOC =240) 
781 Boeke 005737 003744 TST DONE sWAS TKCSR DONE SET? 
782 003632 001434 BEQ 3$ 3;BR IF NO worse ON TEST) 
783 003634 005037 003744 CLR DONE iy S, CLEAR FLAG 
784 003640 000415 BR 2$ 0 TO NEXT TEST 
785 003642 032777 004000 175332 1$: BIT #SW11,aSwR ;DELETE ITERATION? (QUICK PASS) 
786 003650 001011 BNE $ R IF YES 
787 003652 105737 001327 TSTB QV.FLG “HAVE PASSES os 
788 003656 001406 BEQ 2$ ;BR IF QUICK PASS. 
789 003660 005237 001224 INC LPCNT ;UPDATE ITERATION COUNTER 
790 3664 023737 001224 001222 CMP LPCNT, [COUNT ;ARE ALL ITERATIONS DONE?? 
791 003672 101414 BLOS 3$ sBR IF NOT YET 
792 003674 105037 001325 2$: CLRB ERRFLG ; PREPARE FOR NEW TEST 
793 003700 005037 001224 CLR LPCNT START ICOUNTER AT 0 
794 003704 005037 001220 CLR LOCK 
795 003710 012737 090020 001222 MOV #20, 1COUNT sRESET ITERATIONS 
796 003716 013737 001216 001214 MOV NEXT,RETURN sGET NEXT TEST 
797 003724 011600 3$: MOV (SP) ,RO :POP RO OF F OF THE STACK 
798 003726 022626 POP2SP sFAKE AN ‘'RTI" 
799 003730 013701 001404 MOV DMCSR,R1 =R1 CONTAINS BASE M8200-YC ADDRESS 
800 003734 000177 175254 JMP @RETURN :60 DO THE TEST 
801 003740 001407 BRW: 1407 
802 003742 000437 RRX: 437 
cr 003744 000000 DONE 0 
805 s;CHECK FOR FREEZE ON CURRENT DATA 
Boe j Demrowocwwecoecocecocococococcese 
808 003746 004737 007652 -SCOP1: JSR PC,CKSWR ;CHECK FOR SOFT SwWR 
809 003752 032777 001000 175222 BIT #SWO9,aSWR s1S SWO9=1(SET)? 
610 003760 001405 BEQ 1$ ;BR IF NOT SET. 
811 003762 005737 001220 TST LOCK 
812 003766 001402 BEQ 1$ 
813 003770 013716 001220 MOV LOCK, (SP) ;GOTO THE ADDRESS IN LOCK. 
ie 003774 000002 1$: RTI 3G0 BACK. 
816 s; TELETYPE OUTPUT ROUTINE 
318 Rees ci teen 
819 003776 010546 TYPE: MOV R5,-(SP) ;SAVE R5 ON THE STACK. 
820 004000 017605 o0n002 MOV = a2(SP) RS :GET ADDRESS OF MESSAGE. 
821 004004 062766 000002 000002 ADD #2,2(SP) sPOP OVER ADDRESS. 
822 004012 005737 010062 4$: TST SWFLG ;SOFT SWR MESSAGE? 
823 004016 001004 BNE 1$ s1F YES TYPE IT OUT REGARDLESS OF Swi2 
824 004020 032777 010000 175154 BIT #SW12,aSWR ; INHIBIT ALL PRINT OUT? 
825 004026 001012 BNE 3t <BR IF NO PRINT OUT Sates (SWi2=1) 
826 004030 105715 1$: TSTB (R5) :1S NUMBER MINUS? (MSB=1(BIT7)) 
827 004032 100002 BPL 23 “BR IF NUMBER IS PLUS 
828 004934 104402 005702 TYPE »MCRLFE ‘TYPE A CR/LF! 
B29 004040 105777 175144 2$: TSTB aTPCSR sTTY READY? 
830 004044 100375 BPL 23 3;BR IF NO. 
831 004046 112577 1751406 MOVB (R5)+,aTPDBR sPRINT CURRENT CHAR. 
832 004052 001357 BNE 4 :1F NOT ZERO KEEP PRINTING! 
833 004054 012605 3$: MOV (SP)+,R5 sEND OF OUTPUT. RESTORE RS 
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004056 
004060 
004062 


004064 
004072 


BEEP 
SEz8 


wenn 


SERRE 
SYONOR 


ooo 
FRR 
at ab a ad ob oe ah ad oh 
5 at a 
aro 


oo 
FR 
pe 
wu 
ae 
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010346 
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000004 004102 
000002 000004 


007546 
000007 
175064 
175060 
000200 
000015 
175044 


175034 


005676 


000004 


000004 


007546 
000015 


000060 
000067 
000060 
000015 


175036 
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GENERAL U 


INSTR: 


INSTI: 
MSG: 


1$: 


2$: 


. INSTE: 


INSTR2: 


- PARAM: 


PARAM1: 


1$: 
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TILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


360 HOME 


R3,-(SP) 
R4 ,- (SP) 


@4(SP),."SG 


#2,4(SP) 
#INBUF ,RG 
#7,R3 
aTKCSR 

1$ 


@TKOBR, (R4) 


#200, (R4) 
(R4)+,4#15 
INSTR2 
aTPCSR 


2$ 
@aTKDBR,aTPDBR 
R3 


1$ 
(SP)+,R4 
(SP)+,R3 


(SP)+,R3 


;SAVE R3 ON STACK 
;SAVE R& ON STACK 


RESTORE R4 
sRESTORE R3 


CONVERT ASCII STRING TO OCTAL 


RS,-(SP) 
R4,-(SP) 
4(SP),R5 


(R5)+,LOLIM 
(R5)+,HILIM 
(R5)+,DEVADR 
(R5)+*,LOBITS 
(R5)+, ADRCNT 


R5,4(SP) 
R5 


#INBUF ,R4 
#15, (R4) 


LIMITS 


SEQ 0033 


LL LLL CC CC LCC ttt ttt te at ttl me ~— 
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310 006305 
891 004312 006305 
892 004314 006305 
893 004316 000760 
— = B96 004320 §=104404 
895 004322 000750 
= B96 
| 697 
898 
899 
900 004324 O20827 


904 
905 004344 001365 


920 004402 000000 
921 004403 


926 004404 016637 


| 

| 

909 004346 013704 
910 004352 010524 
930 004412 010537 


36 
937 
938 
939 
940 004444 013700 
941 004450 013701 
942 004454 013702 
943 004460 013703 
944 004464 013704 
945 004470 013705 
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UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


GENERAL 
ASL RS 
ASL R5 
ASL RS 
BR 1$ 
PARERR: INSTER 
BR PARAM1 
;TEST TO SEE IF NUMBER IS WITHIN LIMITS 
004376 LIMITS: CMP RS,HILIM 
BHI PARERR 
004374 CMP RS,LOLIM 
BLO PARERR 
004402 B1TB LOBITS,R5 
BNE PARERR 
7STORE NUMBER AT SPECIFIED ADDRESS 
004400 MOV DEVADR ,R4 
1$: MOV R5,(R4)+ 
000002 ADD #2,R5 
004403 DECB ADRCNT 
BNE 1$ 
MOV (SP)+,R4 
MOV (SP)+,R5 
RT] 
LOLIM: Q 
HILIM: 0 
DEVADR: 0 
LOBITS 


: 0 
ADRCNT=LOBITS+1 


000004 001276 .SAVOS5: 


001272 $v05: 


001260 


001260 -RESOS: 


001272 


SAVE PC OF TEST THAT FAILED AND RO-R5 


MOV 4(SP) ,SAVPC SAVE R7 (PC) 
;SAVE RO-R5 

MOV R5,SAVR5 ;SAVE R5 
MOV R4,SAVR4 sSAVE R4 
MOV R3,SAVR3 7SAVE R3 
MOV. R2,SAVR2 sSAVE R2 
MOV R1,SAVR1 ;SAVE R1 
MOV RO, SAVRO ;SAVE RO 
RT] ; LEAVE. 
;RESTORE RO-R5S 

MOV SAVRO,RO ;RESTORE RO 
MOV SAVR1,R1 TRESTORE R1 
MOV SAVR2 ,R2 ;RESTORE R2 
MOV SAVR3,R3 ;RESTORE R3 
MOV SAVR4 ,R4 sRESTORE R4 


MOV SAVRS,R5 sRESTORE R5 


SEQ 0034 


CRLPMB 
CRLPMB. 
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004474 000002 


004476 104402 


ooo * 


oa 
= 
oa 
-OoO—— 
9 arth tet paps mete? 


: 

“ 

So 
SSscSs5=8 


= 

&RSo 
ooo 
= 


15:0 


005702 


000012 


24 
000003 
177400 
004724 
004722 
001416 


177770 
000060 


007610 
004722 
004723 
000040 
004723 


007610 
004720 


24-0(T-80 
8 


000012 


004722 
004724 
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GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


-CONVR: 7 
.CNVRT: 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


WRDCNT: 
CHRCNT: 


RTI 


CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


0 
0 


4 5 


; LEAVE 


(R1)+,WRDCNT 
(R1)+,CHRCNT 
(R1)+,SPACNT 
a(R1)+,BINWRD 
#3, CHRCNT 


2$ 
#177400 ,BINWRD 
BINWRD ,R4 
CHRCNT ,R5 
Ny Sage 


R3, (RO) + 
R4 
R4 


R4 
R5 


3$ 
#MDATA,R3 
-(RO),(R3)+ 
CHRCNT 


4$ 

SPACNT 

6$ 
#040,(R3)+ 
SPACNT 

5$ 

(R3) 


-MDATA 
_ 


4 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R1 
(SP)+,RO 


SEQ 0035 
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1002 004723 
1003 004724 000000 


5 


1011 004726 011646 


004756 000136 


1021 
1022 
1023 004760 004737 
004764 


ed ced ced aed ed aed od ed ed 
oooo°c[e°cKeo 
Ce pee ee ee er eer eer ert 
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33s 

o 

KF 

IN 

= 

o 

Oo 

oa 

~ 

~ 

— 

oa 


1025 004772 001406 
004774 


ee ee eet aed od od ot ow 3 3 
ooo 
WW 
OoN 
Sss 
S3ss 
AEF 
Oon 

om 
=o 
=~ 
33 
RRS 


RERRERKK 
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S 

w 

—_ 

~ 

— 

_" 
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000002 
000000 


177001 


001330 
000000 


007652 
010000 


174210 


000207 
020000 


001234 
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000002 
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GENERAL UTILITIES (TYPEQUT, ERROR, SCOPE, ETC) 


SPACNT=CHRCNT +1 


BINWRD: 0 


.TRPSR: 


TRPOK: 


174210 


174202 


174164 XBX: 


1$: 


TYPMSG: 


1$: 


; TRAP DISPATCH SERVICE 

ARGUMENT OF TRAP IS EXTRACTED 

;AND USED AS OFFSET TO OBTAIN POINTER 
:TO0 SELECTED SUBROUTINE 


(SP) ,=(SP) 


:GET PC of Bm 


#2, (SP) :=PC OF 
a(SP), (SP) :GET TRE 
(SP) ;MULTIPLY TRAP ARG + 2 


#177001, (SP) 
#. TRPTAB, (SP) 


a(SP), (SP) 
a(SP)+ 


;CLEAR UNWANTED BIT 

:POINTER TO SUBROUTINE ADDRESS 
:SUBROUTINE ADDRESS 

;GO TO SUBROUTINE 


PC, CKSWR ;CHECK FOR SOFT SWR 
#SW12,aSWR ;BELL ON ERROR? 

XBX ;BR IF NO BELL 
—— : TTY READY 


¥207 aTPDBR 
#sul3, aswR 


ial -LSTERR 


DY. 
;DON'T WAIT IF TTY NOT READY. 
;PUSH A BELL AT THE TTY. 
;DELETE ERROR PRINT ouT? 
:BR IF NO PRINT OUT WANTED. 
a THIS ERROR FOUND LAST TIME? 


;BR IF YES 
sRECORD BEING HERE 


(SP) ,LSTERR 
ERRFLG “PREPARE HEADER 

[SAVE ALL PROC REGISTERS 
(SP) RS ‘GET THE PC OF ERROR 
#2,R5 [GET ADDRESS OF TRAP CALL 
(R5) RG ‘GET HLT INSTRUCTION 
RG “MULT BY TWO 
(RS) RG [DOUBLE IT 
R4 “MULT AGAIN 
#177001,R4 [CLEAR JUNK 


# .ERRTAB,R4 


:GET POINTER 


(R4)+, ERRMSG :GET ERROR MESSAGE 
(R4)+*,DATAHD GET DATA HEADRER 
(R4) ,DATABP GET DATA TABLE 
ERRFLG : TYPE HEADREER 
TYPMSG BR IF YES 
DATABP ;DOES DATA TABLE EXIST? 
TYPDAT BR IF YES. 

oMCRLF 

oMCRLF 

LOCK 

1$ 

»MASTEK 

MTSTN 

eXTSIN ;SHOW IT 


SEQ 0036 


333 


ek ek td ot ot oo 
ee ek ed et ot od 2 ot I OE 
oS ooooo 
SSLESEALLSS 


at ad oat etd 
wn—o 


ba 
MACY11_ 306(1063) 24-OCT-80 09: +H Beng E 22 


P11 21-0CT-80 15:08 L UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0037 
005150 104402 aes tty TYPE »MERRPC s TYPE PC. 

005154 104411 005332 CNVRT = ,ERTABO SHOW IT 

005160 104402 005762 _ TYPE ,MCRLF sGIVE A CR/LF 

005164 112737 177777 001325 MOVB #-1,ERRFLG sNO MORE HEADER UNLESS NO DATA TABLE. 
005172 005737 005202 TST ERRMSG ;1S THERE AN ERROR MESSAGE? 

005176 0601402 BEQ WRKO.FM ‘BR IF NO. 

005200 104402 TYPE : TYPE 

005202 000000 ERRMSG: 0 : ERROR MESSAGE 

005204 WRKO.FM: 

005204 005737 005214 TST DATAHD ‘DATA HEADER? 

005210 001402 BEQ TYPDAT ;BR IF NO 

005212 104402 TYPE : TYPE 

005214 000000 DATAHD: 0 ; DATA HEADER 

005216 005737 005226 TYPDAT: TST DATABP [DATA TABLE? 

005222 001402 BEQ RESREG “BR IF NO. 

005224 104410 CONVRT : SHOW 

005226 000000 DATABP: 9 : DATA TABLE 

005230 104407 RESREG: RESOS *RESTORE PROC REGISTERS 


ease 022737 003532 000042 HALTS: CMP + peanuts zI1F ACT=11 AUTOMATIC MODE, HALT!! 


005242 005777 173734 TST aSwR ;HALT ON ERROR? 
005246 100005 BPL EXITER :BR IF A. HALT ON ERROR 
005250 010046 1$: PUSHRO :SAVE R 
005252 016600 000002 MOV 2(SP),RO ; SHOW ERROR PC IN DATA LIGHTS 
005256 000000 HALT ;HALT 

5 012600 POPRO ;GET RO 
005262 005237 001232 EXITER: INC ERRCNT ;UPDATE ERROR COUNT 
005266 032777 000400 173706 BIT #SW08 ,aSWR ;GOTO TOP OF TEST? 
005274 001007 BNE 1$ :BR IF YES 
005276 032777 002000 173676 BIT #SW10,aSWR ;GOTO NEXT TEST? 
005304 001411 BEQ 2$ BR IF NO 
005306 013737 001216 001214 MOV NEXT ,RETURN :SET FOR NEXT TEST 
005314 012706 001200 1$: MOV #STACK,SP RESET SP 
005320 013701 001404 MOV DMCSR,R1 SET UP Ri 
005324 000177 173664 JMP @RETURN ;GOTO SPECIFIED TEST 
005330 RT] ; RETURN 
005332 000001 ERTABO: 1 

006 002 -BYTE 6,2 
001276 SAVPC 
005340 000001 XTSTN: 1 
005342 003 002 -BYTE 3,2 
005344 001226 TSTNO 
ENTER HERE ON POWER FAILURE 
005346 -PFAIL: 
005346 012737 005360 000024 MOV #RESTART 24 ;SET UP FOR POWER UP TRAP 
005354 000000 HALT ;HALT ON POWER DOWN NORMAL 
005356 000777 BR , 
;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 

005360 RESTAR: 
005360 012737 005346 000024 MOV #.PFAIL,24 SET UP FOR POWER FAILURE 

5366 012706 001200 MOV #STACK,SP ;RESET THE STACK POINTER 
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001404 
001416 
001416 
005705 
001234 
173554 

002 


000020 


000020 


000100 
000300 


000160 


000003 
000007 


001416 


001416 
000002 


173736 


173720 


173664 


173442 


173634 
173626 


-DATACLK: 
M 


MOV 
ROMCLK 
121111 


ROMCLK 
121224 


m3 


GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


DMCSR,R1 sRESTORE R1 
TEMP 


;READY FOR TIMMER 
TEMP PLUS ONE TO THE TIMER! 
74 ;BR_IF MORE TO GO 
oMPFAIL ;TYPE THE MESSAGE 
-PFTAB ;TELL WHAT TEST TO RETURN TO. 
ERRFLG START CLEAN 
LSTERR pp argos 
(R1) ;CLEAR MAINT BITS 

START CLEAN UP OF DEVICE 
@RETURN START DOING THAT TEST AGAIN. 
#20, aDMP04 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;POKE CLOCK DELAY BIT 


:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

’ :PORT4 IBUS*11 
#B1T4,aDMPO4 1S CLOCK BIT SET? 
1$ :BR IF NO 


DMCSRH  ;SET MASTER CLEAR 
117, @DMCSRH — MASTER CLEAR AND RUN 
; RETURN 


#81T6,a 
#B1T6'B 


#BIT1,aD0MCSRH ;SET ROMI 
a(SP)+,aDMPO6 ;LOAD INSTRUCTION IN SEL6 


#2,-(SP) ADJUST STACK 
#SW06,aSWR ;HALT IF SWO6 =1 
1$ ;BR IF SW06 =0 


“HALT BEFORE CLOCKING INSTRUCTION 
@DMCSRH :CLOCK INSTRUCTION 
'BITO,@DMCSRH ;CLEAR ROMO, ROMI, STEP 


a(SP)+,TEMP ;PUT TICK COUNT IN TEMP 
#2,-(SP) sADJUST STACK 
#BIT4,@DMCSRH ;SET STEP LU 
@DMCSR,@DMCSR ;WASTE TIME 
#BIT4,QDMCSRH ;CLEAR STEP LU 
TEMP ;DEC TICK COUNT 
1$ ;BR_IF NOT DONE 

; RETURN 


J 


a(SP)+, TEMP MOVE COUNT TO TEMP 
#2,-(SP) ADJUST STACK 


kk kk as a ts 
OOOO NNN NNN 
PASSES SaNeaRas 


EOP ELE PRR PPP PPP Pe Pe Pm ele cells cre ls cls certs ccs cel esl ls sls ceils 
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15:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0039 
| 
1$: 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021364 :PORT4 IBUS* REG11 
000002 173542 BIT #2,aDMP04 71S PGA CLOCK BIT CLEAR? 
- BEQ 1$ :BR IF YES 
eROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021364 ;PORT4 IBUS* REG11 
000002 173526 BIT #2, aDMPO4 71S +l ee BIT SET? 
BNE 2$ BR IF ves 
001416 DEC TEMP ;DEC COUN 
BNE 1$ ‘BR A nNOT DONE 
RTI ;RETUR 
000077 MOM: ASCIZ / 27/ 
00 MCRLF: .ASCIZ <15><12> 
053520 020122 MPFAIL: .ASCIZ <377>/PWR FAILED. RESTART AT TEST / 
047105 020104 MEPASS: .ASCIZ <377>/END PASS CRLPMB / 
000 : eASCIZ <377>/R/ 
047516 042040 MERR2: .ASCIZ <377>/NO DEVICES PRESENT./ 
051516 043125 MERR3: .ASCIZ <377>/INSUFFICIENT DATA!/ 
051505 020124 MTSTPC: .ASCIZ <377>/TEST PC-/ 
041517 020113 MLOCK: .ASCIZ <377>/LOCK ON SELECTED TEST/ 
051123 020072 MCSRX: .ASCIZ /CSR: / 
041505 020072 MVECX: .ASCIZ /VEC: / 
051501 042523 MPASSX: .ASCIZ /PASSES: / 
047522 051522 MERRX: .ASCIZ /ERRORS: / 
051505 020124 MTSTN: .ASCIZ /TEST NO: / 
000 MASTEK: .ASCIZ /*/ 
042523 020124 EW: .ASCIZ <377>/SET SWITCH REG TO MB200-YC'S DESIRED ACTIVE./ 
035103 000040 MERRPC: .ASCIZ /PC: / 
020040 020040 KXHEAD: .ASCII <212>/ MAP OF M8200-YC STATUS/ 
020040 020040 ASCII <377>/ ewww www nnnnnenennnn 
50040 020103 ASCII <212>/ PC CSR STAT1 STAT2 STAT3/ 
026455 026455 eASCIZ 3 <<377>/eeeen= eeeenre ceeene eeeene  eeeeee 
053517 046440 NUM: -ASCIZ <377>/HOW MANY me200-¥C" S§ TO BE TESTED?/ 
051503 020122 CSR: -ASCIZ <377>/CSR ADDRESS? 
042526 052103 VEC: eASCIZ <377>/VECTOR ABORESS?/ 
020122 051120 PRIO: .ASCIZ <377>/BR PRIORITY LEVEL? (4,5,6,7)? 
043111 042060 CRAM: .ASCIZ <377>/IF DMC HAS CRAM (M8204) TYPE hy ** IF CROM (M8200) hy 'w'' 2/ 
044127 041511 DU: .ASCIZ <377>/WHICH LINE UNIT? IF NONE TYPE ye If M8201 TYPE ‘1’, IF 18202 TYP 
053523 052111 LINE: .ASCIZ <377>/SWITCH PAC#1 (DDCMP LINE #)?/ 
053523 052111 68M: eASCIZ <377>/SWITCH PAC#2 (BM873 BOOT ADD) ?/ 
051511 052060 CONN: .ASCIZ <377>/1S THE LOOP BACK CONNECTOR ON?/ 
047516 042040 NOACT: .ASCIZ <377>/NO DEVICES ARE SELECTED/ 
053523 036522 SWMES: .ASCIZ <377><12>/SwR= / 
037527 000040 SWMES1: .ASCIZ /NEW? / 
034115 030062 CONERR: .ASCIZ <377><377>/M8200-YC FOUND AT NON-STANDARD ADDRESS PC: / 
054105 042520 CNERR: .ASCIZ <377>/EXPECTED FOUND/ 
034115 030062 DMCM: .ASCIZ / cmmene Ve) / 
046513 024503 KMCM: .ASCIZ /_(t 
031070 030060 speeps eASCI2Z 157 Fo NB 200-1C--AR(REROTE LOU SPEED) OR MB2CO-YC-AL(LOCAL HIGH SPEED) TYP 
VEN 
XSTATQ: 5 
003 -BYTE 6,3 
TEMP! 


B 4 
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CRLPMB.P11 21-OCT-80 15:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEG 0040 
1187 007526 006 003 BYTE 6,3 
1188 007530 01250 TEMP2 
1189 007532 006 003 .BYT 6,3 
1190 75 001252 TEMP 
1191 75 006 003 -BYTE 6,3 
1192 007540 001254 TEMPS 
1193 007542 006 002 -—BYTE 6,2 
1194 007544 001256 TEMPS 
1195 EVEN 
1196 
HB 44 sBUFFERS FOR INPUT-OUTPUT 
1199 007545 000000 INBUF: 0 
1200 007610 .=. +40 
1201 007610 000000 MDATA: 0 
1202 007652 .=. +40 
1203 
1204 
1205 sROUTINE USED TO CHANGE SOFTWARE SWITCH 
ise REGISTER USING THE CONSOLE TERMINAL 
1208 . 
1209 007652 022737 000176 001202 cCkSswR: CMP #SWREG, SWR :1S THE SOFT SWR BEING USED? 
1210 007660 001077 BNE CKSWRS [BR IF NO 
1211 007662 105777 171316 TSTB aTKCSR :1S DONE SET? 
1212 007666 100003 BPL 2$ :GO ON IF NOT SET 
1213 007670 012737 177777 003744 MOV &-1, DONE zIF DONE SET, SET FLAG 
1214 007676 022777 000007 171302 2%: CMP #7, aTKDBR ‘WAS CTRL G TYPED? (7 BIT ASCIi) 
1215 007704 001404 BEC 1$ ‘BR IF YES 
1216 007706 022777 000207 171272 CMP #207, aTKDBR sWAS CTRL G TYPED? (8 BIT ASCII) 
1217 007714 001061 BNE CKSWRS ;BR IF NO 
1218 007716 010246 1$: MOV R2,-(SP) :STORE R2 
1219 007720 010346 MOV R3,-(SP) sSTORE R3 
1220 007722 010446 MOV R4,-(SP) sSTORE R4 
1221 007724 012737 177777 010062 MOV #-1,SWFLG :SET SOFT TYPE OUT FLAG 
1222 007732 005002 CKSWR1: CLR R2 :CLEAR NEW SWR CONTENTS 
1223 007734 012704 177777 MOV #-1,R4 7SET FLAG TO, ALL ONES 
1224 007740 104402 007232 TYPE »SWMES : TYPE ‘'SWR 
1225 007744 104411 CKSWR2: CNVRT TYPE OUT PRESENT CONTENTS 
1226 007746 010116 SOF TSW ‘OF SOFT SWITCH REGISTER 
1227 007750 104402 007242 CKSWR3: TYPE ,SWMES1 :TYPE ‘NEW? 
1228 007754 004737 010064 CKSWR4: JSR PC, INCHAR >GET RESPONSE 
1229 007760 022703 000015 CMP #15. R3 “WAS IT A CR? 
1230 007764 001424 BEQ :BR IF YES 
1231 022703 000012 CMP re. R3 sWAS IT A LF? 
1232 007772 001416 BEQ 4$ :BR IF YES 
1233 007774 022703 000025 CMP #25,R3 sWAS IT CTRL U? 
1234 010000 001754 BEQ CKSWR1 [BR IF YES(START OVER) 
1235 010002 022703 000007 CMP #7,R3 s1F CNTL G GET NEXT CHAR 
1236 010006 001762 BEQ CKSWR4 
1237 010010 005004 CLR R4 :1T MUST BE A DIGIT SO CLR FLAG 
1238 010012 042703 177770 BIC #177770,R3 sONLY O-7 ARE LEGAL SO MASK OFF BITS 
1239 010016 006302 ASL R2 sSHIFT R2 3 TIMES 
1240 010020 006302 ASL R2 
1241 010022 006302 ASL R2 
1242 010024 050302 BIS R3,R2 :ADD LAST DIGIT 
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GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


4$: 
5$: 


6$: 


CKSWRS: 


SWFLG: 


INCHAR: 


SOF TSW: 


CKSWRS 
# START ,6(SP) 
RG 


(SP) +, R2 
PC 


— 


STKOeR, R3 
tr 


R3,aTPDBR 
#BiT7,R3 
PC 


6.2 


;GET NEXT CHARACTER 

LF WAS TYPED $0 GO TO START 

:1S FLAG CLEAR? 

:1F NOT DON'T CHANGE SOFT SwWR 

;1F YES THEN a Ns a CONTENTS TO SOFT SwR 
:CLEAR TYPEOUT F 

RESTORE R4 

;RESTORE R3 


sRESTORE R2 
; RETURN 


SEQ 0041 


D 4 
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CRLPMB.P11 © 27-0CT-80 15:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0042 

1268 

1269 : 
— 1270 ;ROUTINE USED TO ‘‘CYCLE'’ THROUGH UP TO 16 M8200-YC'S 
1271 ;THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
(1272 SAND RUNS THE SPECIFIED M8200-YC'S. THIS ROUTINE *MUST® 
| 275 ‘BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
127% ISETUP NECESSARY. 

136 

1277 010124 005737 001306 CYCLE: IST DMACTV s ARE a oe § TO BE TESTED? 

1278 010130 001004 BNE 1$ R 

1279 010132 104402 007201 TYPE = ,NOACT “NO hB20027C* S SELECTED!! 

1280 010136 000000 HALT :$TOP THE SHOW. 

1281 010140 000776 BR 2 ‘DISQUALIFY CONT. SW. 

1282 010142 000241 1$: CLC ‘CLEAR PROC. CARRY BIT. 

1283 010144 006137 001316 ROL RUN ‘UPDATE POINTER 

1284 010150 005537 001316 ADC RUN SCATCH CARRY FROM RUN 

1285 010154 062737 000004 001322 ADD #4, MILK [UPDATE POINTER 

1286 010162 062737 000010 001320 ADD #16, CREAM re ADDRESS POINTER. 

1287 010170 022737 001700 001320 CMP #DM.MAP+200, CREAM 

1288 010176 001006 BNE 2$ :KEEP GOING; NOT ALL TESTED FOR. 

1289 010200 012737 001500 001320 MOV #DM.MAP,CREAM SRESET ADDRESS POINTER. 

290 010206 012737 001702 001322 MOV #CNT.MAP,MILK ;RESET PASS COUNT POINTER 

1291 010214 033737 001316 001306 2$: BIT RUN, DMACTV 31S THIS ONE ACTIVE? 

1292 010222 001747 BEQ 1$ ‘BR IF NO 

1293 010224 013700 001320 MOV CREAM,RO ;GET ADDRESS POINTER 

1294 010230 013702 001322 MOV MILK,R2 ;GET PASS COUNT POINTER 

1295 010234 012037 001404 MOV (RO)+,DMCSR LOAD SYSTEM CTRL. REG 

1296 010240 011037 001374 MOV (RO) ,OMRVEC [LOAD VECTOR 

1297 010244 042737 177000 001374 BIC #177000, DMRVEC CLEAR UNWANTED BITS 

1298 010252 012037 001366 MOV (RO)+, STATI ;LOAD STAT1 

1299 010256 012037 001370 MOV (RO) +, STATZ [LOAD STAT2 

1300 010262 012037 001372 MOV (RO)+,STATS [LOAD STAT3 

1301 010266 012237 001230 MOV (R2)+,PASCNT ;LOAD PASS COUNT 

1302 010272 012237 001232 MOV (R2)+.ERRCNT | :LOAD ERROR COUNT 

1303 010276 012700 000002 MOV #2,R0 ‘SAVE CORE THIS WAY! 

1304 010302 013737 001404 001406 MOV DMCSR,DMCSRH 

1305 010310 005237 001406 INC DMCSRH 

1306 010314 013737 001406 001410 MOV DMCSRH,DMCTL 

1307 010322 005237 001410 INC DMCTL 

1308 010326 013737 001410 001412 MOV - DMCTL,DMPO4 

1309 010334 060037 001412 ADD RO, DMPO4 

1310 010340 013737 001412 001414 MOV DMPO4 ,DMP06 

1311 010346 060037 001414 ADD RO, DMPO6 

1313 010352 013737 001374 001376 MOV DMRVEC,DMRLVL =; PTY LVL 

1314 010360 0600 001376 ADD RO, DMRLVL : 

1315 010364 013737 001376 001400 MOV DMRLVL,DMTVEC :TX VEC 

1316 010372 060037 091400 ADD RO, DMTVEC : 

1317. 010376 013737 001400 001402 MOV DMTVEC,DMTLVL :TX LVL 

1318 010404 060037 001402 ADD RO, DMTLVL 

1320 010410 032737 000002 001236 BIT #SWO1,STRTSW ;1S TEST NO. SELECTED 

1321 010416 001450 BEQ 7$ ;BR IF NO 

1322 010420 4$: 

1323 010420 005737 000042 TST a#42 ;RUNNING IN AUTO MODE? 


CRLPMB.P11 
1324 010424 
1325 Hk 3] 
1326 010432 
1327 010434 
1328 010436 
1329 010440 
1330 010442 
1331 010444 
1332 010446 
1333 010447 
1334 010450 
1335 010454 
1336 010456 
1337 010460 
1338 010462 
1339 010470 
1340 010472 
1341 010500 
1342 010502 
1343 010506 
1344 010512 
1345 010520 
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001045 


000730 
012737 


013701 
000177 


000005 
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GENERAL UTILITIES (TYPEOUT, 


005702 


022404 


001226 
001226 
001214 
005766 
000002 
026114 
005676 
022404 


001404 
170436 


001500 
001700 
001310 
000001 


011326 
000001 


000002 
000004 


001236 


001214 


001236 


001256 


-BYTE 
-BYTE 


S$: 


6$: 


7$: 
8$: 


entann * 
CSRMAP: 
1$: 


—E 4 
ERROR, SCOPE, ETC) 
;BR IF YES 
;GET TEST NO. 


7$ 
»MCRLF 


#TST1,R0 
(PC)+, (RO) 
(PC)+,a(PC)+ 
6$ 
TSTNO,2(RO) 
6$ 
#TSTNO,4(RO) 
6$ 

RO,RETURN 
»MR 
#SWO1,STRTSW 
8$ 

(RO)+ 

RO, #TLAST+#10 
5$ 

MQM 

4$ 
#TST1,RETURN 


DMCSR,R1 
ORE TURN 


;CMP FIRST WORD TO 12737 


;BR IF NOT SAME 
;DOES TSTNO MATCH? 


BR IF NO 
31S LAST WORD OK? 
:BR IF 


NO 
17 1S A LEGAL TEST SO DO iT 


;POP RO 


;AT END YET? 

:BR IF NO 

YES ILLEGAL TEST NO. 
TRY AGAIN 


;PREPARE RETURN ADDRESS 


;R1 = BASE M8200-YC ADDRESS 
3GO START TESTING. 


;ROUTINE USED TO “AUTO SIZE’ THE M8200-YC 
CSR AND VECTOR. 
THE CSR MAY BE ANY WHERE IN THE 
ADDRESS RANGE (170440:170510) 

AND THE VECTOR MAY BE ANY WHERE IN THE 
FLOATING VECTOR RANGE (300:770) 


;NOTE: 


#DM.MAP,R2 
(R2)+ 
#DM.END,R2 
1$ 

OMNUM 
#OM.MAP,R2 
DMACTV 

nt Yginbiiethes 
_ # 


7$ 
#1, TEMPS 


; INSURE A BUS INIT. 


‘LOAD MAP POINTER. 


;ZERO ENTIRE MAP 

ZALL DONE? 

:BR_IF NO 

3SET OCTAL NUMBER OF M8200-YC'S TO 0 
:R2 POINTS TO M8200-YC MAP 

CLEAR ACTIVE 

: QUESTIONS? 

BR IF YES 

:1F NO SKIP  edieatan 

SSTART WITH 1 


ES 
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010636 104405 PARAM 

010640 000001 1 

010642 000020 16. 

010644 001252 TEMP3 

010646 000 .BYTE 0 

010647 001 BYTE 1 

010650 013737 001252 001310 MOV TEMP3, DMNUM :DMNUM = HOW MANY 
010656 104402 005702 128: TYPE  ,MCRLF 

010662 104410 CONVRT sTYPE WHICH DMC 3 Pec DONE 

0664 012060 WHICH > TEMPS 1S WHICH D 
66 005237 001256 INC TEMPS 
010672 104403 INSTR 
010674 006535 C 
0676 104405 PARAM 

010700 170440 170440 

010702 170510 170510 

010704 001254 TEMP4 

010706 000 .BYTE 0 

010707 001 "BYTE 1 

010710 013722 001254 MOV TEMP4, (R2)+ ;STORE CSR IN MAP 
010714 104403 INSTR 

010716 006553 V 

010720 104405 PARAM 

010722 060000 

010724 000776 776 

010726 001254 TEMP4 

010730 000 .BYTE 0 

010731 001 "BYTE 1 

010732 013712 001254 MOV TEMP4G, (R2) sSTORE VECTOR IN MAP 
010736 104402 10$: ‘TYPE 

010740 006574 PRIO sASK WHAT BR LEVEL 
010742 004737 012344 JSR PC,INTTY ;GET RESPONSE 

010746 022703 000024 CMP #26 ,R3 : 

010752 101014 BHI , 508 :BR IF LESS THAN 4 
010754 022703 000027 CMP #27,R3 

010760 103411 BLO 50$ ‘BR IF GREATER THAN 7 
010762 012704 000011 MOV #11,R4 "R4 = NUMBER OF SHIFTS 
010766 006303 ASL R3 SHIFT R3 LEFT 

010770 005304 DEC R4 sDEC SHIFT COUNT 
010772 001375 BNE 74 ‘BR IF NOT DONE 
010774 042703 170777 BIC #170777,R3 “BIC UNWANTED BITS 
011000 050312 BIS R3,(R2) ;PUT BR LEVEL IN STATUS MAP 
011002 000403 BR &$ 3; CONTINUE 

011004 104402 50$: TYPE 

011006 005676 MQM sRESPONSE IS OUT OF LIMITS 
011010 000752 BR 10% ‘TRY AGAIN 

011012 8$: 

011012 000137 011304 JMP 33$ 

011016 104402 TYPE 

011020 33 CRAM sDOES DMC HAVE CRAM? 
011022 004737 012344 JSR PC, INTTY sGET REPLY 

011026 022703 000131 CMP #131,R3 

011032 001427 BEQ % sYES 

011034 022703 000116 CMP #116,R3 ‘NO 

011040 001403 BEQ 40% sNOT A Y OR N 

011042 104402 TYPE 
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CRLPMB.P11 21-OCT-80 15:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0045 
1436 011044 005676 MoM sTYPE "2" 
1437 011046 000761 BR 8S SASK AGAIN 
1438 011050 104402 40$: TYPE 
1439 011052 007376 SPEED :M8200-YC-AR OR M8200-YC-AL? 
, 1460 011054 004737 012344 JSR PC, INTTY sGET RESPONSE 
1441 011060 022703 000122 CMP #122,R3 t1§ IT R 
1442 011064 001414 BEQ 16$ “BR IF REMOTE 
| 1443 011066 022703 000114 CMP #114,R3 TIS ITL 
/ 1444 011072 001403 BEQ 41$ ;BR IF LOCAL 
| 1445 011074 104402 TYPE 
1446 011076 005676 MOM 
1447 011100 000763 BR 40$ s TRY AGAIN 
1448 011102 052762 000002 000004 41$: 81S #B1T1,4(R2) “SET BIT] IN STAT3 
1449 011110 000402 BR 1 s CONTINUE 
1450 011112 052712 100000 9$: BIS #B1T15, (R2) “SET BIT 15 IF CRAM 
1451 011116 104462 16$: TYPE 
1452 011120 006731 MODU :ASK WHICH LINE UNIT 
1453 011122 004737 012344 JSR PC,INTTY 3GET REPLY 
1454 011126 022703 000021 CMP #21,R3 qt 
| 4455 011132 001417 BEQ 30$ 
1456 011134 022703 000022 CMP #22,R3 7" 
1457 011140 001412 BEQ 31$ 
1458 011142 022703 000116 CMP #116,k3 — © 
1459 011146 001403 BEQ 32$ 
1460 011150 104402 TYPE 
1461 011152 005676 MOM :IF NOT A 1,2 OR N TYPE ‘'2°° 
1462 011154 000760 BR 16$ ‘TRY AGIAN 
1463 011156 052722 010000 32$: BIS #B1T12,(R2)+ :SET BIT 12 IN STAT2 IF NO LU 
1464 011162 022222 CMP (R2)+,(R2)+ :POP OVER STAT2 AND STATS 
1465 011164 000447 BR 33$ 
1466 011166 052712 020000 31$: BIS #BIT13,(R2) 7SET BIT 13 IN STAT2 IF M8202 
1467 011172 104402 30$: «TYPE 
1408 011174 007141 CONN :ASK IF LOOPBACK IS ON 
1469 011176 004737 012344 JSR PC,INTTY 3GET REPLY 
1470 011202 022703 000131 CMP #131,R3 “Y 
1471 011206 001406 BEQ 17$ 
1472 011210 022703 000116 CMP #116,R3 iN 
1473 011214 001406 BEQ 18$ 
1474 011216 104402 TYPE 
1475 011220 005676 MQM ;1F NOT Y OR N TYPE *'?"’ 
1476 011222 000763 BR 30% [TRY AGAIN 
1477 011224 052722 040000 17$: BIS #B1T14,(R2)+ s TURNAROUND IS CONNECTED 
1478 011230 000402 BR 19$ 
1479 011232 042722 040000 18$: BIC #BIT14,(R2)+ ;NO TURNAROUND 
1480 011236 19$: | 
1481 011236 104403 INSTR 
1482 011240 007043 LINE 
1483 011242 104405 PARAM 
1484 011244 000000 
| 1685 011246 000377 77 
1486 011250 001254 TEMP4 
1487 011252 000 ‘BYTE 0 
1488 «011253 001 "BYTE 1 
| 1489 011254 113722 001254 MOVB TEMP4, (R2) + sSTORE SWITCH PAC IN MAP 
4490 011260 104403 INSTR 
1491 011262 007101 BM 
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1492 011264 104405 PARAM 
1493 011266 000000 0. 
1494 011270 000377 77 
1495 011272 001254 TEMPS 
1496 011274 000 BYTE 0 
1497 011275 001 -BYTE 1 
1498 011276 113722 001254 MOVB TEMPG,(R2)+ STORE SWITCH PAC IN MAP 
1499 011302 005722 TST (R2)+ ;POP OVER STATS 
500 011304 33$: 
1501 011304 062702 000006 ADD #6 ,R2 
1502 011310 005337 001252 DEC TEMPS :DEC DMC COUNT 
1503 011314 001402 BEO 34$ ;BR IF DONE 
1504 011316 000137 010656 JMP 12$ ; JUMP IF NOT 
1505 011322 000137 011760 348: JMP 13$ ; CONTINUE 
506 011326 012701 170440 7$: MOV #170440,R1 ;SET FOR FIRST ADDRESS TO BE TESTED 
1507 011332 012737 012052 000004 MOV #6$,aa4 SET FOR NON-EXISTANT DEVICE TIME OUT 
1508 011340 005011 2$: CLR (R1) ;CLEAR SELO 
1509 011342 005711 TST (R1) ;1F M8200-YC DMCSR S/B 0 
1510 011344 001173 BNE 3$ ;1F NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO M8200-YC 
1511 011346 005061 000006 CLR 6(R1) ;CLEAR SEL6 
1512 011352 000424 BR 21% 
1513 011354 005761 000006 TST 6(R1) ;1F M8200-YC THEN DMRIC S/B =0: 
1514 011360 001165 BNE 3$ ;BR_ IF NOT M8200-YC 
1515 011362 012711 002000 MOV #B1T10,(R1) 7SET ROMO 
1516 011366 005061 000004 CLR 4(R1) CLEAR SEL4 
1517 011372 012761 125252 000006 MOV #125252,6(R1)  ;WRITE THIS TO SELo 
1518 011400 052711 020000 BIS #B1T13,(R1) sWRITE IT! 
1519 011404 022761 125252 000004 CMP #125252,4(R1) WAS IT WRITTEN? 
1520 011412 001004 BNE 21$ :IF NO IT IS NOT CRAM 
1521 011414 052762 100000 000002 BiS #B1T15,2(R2) SET BIT15 IF CRAM 
1522 011422 000431 BR 22% 
1523 011424 012711 001000 21$: MOV #B1T9,(R1) :SET ROMI 
1524 011430 012761 100400 000006 MOV #100400,6(R1) PUT INSTRUCTION IN SEL6 
1525 011436 012711 001400 MOV #BIT9!BIT8,(R1) ;CLOCK INSTRUCTION (MICRO PROC PC TO 0) 
1526 011442 012711 002000 MOV #B1T10,(R1) SET ROMO 
1527 011446 022761 000456 000006 CMP #456,6(R1) :I1S 1T LOCAL CROM 
1528 011454 001411 BEQ 23% ;BR IF YES 
1529 011456 022761 016520 000006 CMP #16520,6(R1) 31S IT REMOTE CROM? 
1530 011464 001410 BEQ 22$ ;BR IF YES 
1531 011466 022761 177777 000006 CMP #-1,6(R1) :NO CROM? 
1532 011474 001404 BEQ 22% ;BR IF YES 
1533. 011476 000516 R NOT A DMC 
1534 011500 052762 000002 000006 23%: BIS #B1T1,6(R2) ;SET BIT 1 IN STATS 
1535 zAT THIS POINT IT IS ASSUMED THAT R1 HOLDS A M8200-YC CSR ADDRESS. 
1536 011506 010122 223: MOV R1,(R2)+ ;STORE CSR_IN CORE TABLE. 
1537 011510 012711 001000 15$: MOV #B1T9,(R1) ;CLEAR LINE UNIT LOOP 
1538 011514 005061 000004 CLR 4(R ;CLEAR PORT4 
1539 011520 012761 122113 000006 MOV #122113,6(R1)  ;LOAD INSTRUCTION (CLR DTR) 
1540 011526 052711 000400 BIS #B1T8,(R1) ;CLOCK INSTRUCTION 
1541 011532 012761 021264 000006 MOV #021264,6(R1)  ;LOAD INSTRUCTION 
1542 011540 052711 000400 BIS #81T8,(R1) ;CLOCK INSTRUCTION 
1543 011544 122761 000377 000004 CMPB #377 ,4(R1) :1S 1T ALL ONES? 
1544 011552 001003 BNE .*10 :BR IF NO 
1545 011554 052712 010000 BIS #B1T12,(R2) ;IF YES, NO LINE UNIT, SET STATUS BIT 
1546 011560 000436 BR 
1547 011562 032761 000002 000004 BIT #B1T1,4(R1) 21S SWITCH A ONE? 


1 4 
CRLPMB MACY11 re the) a oe 09:23 PAGE 32 


CRLPMB.P11  21-0CT-80 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0047 
1548 011570 001403 BEQ +10 . M8201 
1549 011572 052712 060000 BIS pelri3:B1tis. cr2se inb202 sASSUME CONNECTOR 
1550 011576 000427 BR : CONNE 
1551 011600 032761 000010 000004 BIT #B1T3,4(R1) iis mR 
1552 011606 001023 BNE 20$ R IF °ng201 NO CONNECTOR (ON LINE) 
1553 011610 012761 000100 000004 MOV #B1T6,4(R1) <P OAD PORT 
1554 011616 012761 122113 000006 MOV are2ti3 6(R1) =LOAD TUSTRUCT 10N 
1555 011624 052711 000400 BIS #B1T8,(R1) ; CLOCK INSTRUCTION SET DTR) 
1556 011630 012761 021264 000006 MOV #021264,.6(R1) >LOAD INSTRUCTION 
1557 011636 052711 000400 BIS #B1TB, (R1) ‘CLOCK INSTRUCTION(READ MODEM REG) 
1558 011642 032761 000010 000004 BIT #81T3.4(R1) [1S MRDY SET NOW? 
1559 011650 001402 BEQ 20$ ‘BR IF NO CONNECTO 
1560 011652 052712 040000 BIS #B1T14,(R2) SET STATUS BIT ron CONNECTOR 
1561 011656 005722 . 20$: TST (R2)+ :POP POINTER 
1562 011660 012761 021524 000006 MOV #021324 ,6(R1) PUT INSTRUCTION IN PORT6 
1563 011666 012711 001400 MOV #B1T9'BITB, (R1) :PORT4_L 15 
1564 011672 156122 000004 BISB 4(R1),(R2)¢ ; STORE “bDCMP LINE # IN TABLE 
1565 011676 012761 021344 000006 MOV #021344 ,6(R1) :PORT6_ —— 10N 
1566 011704 012711 001400 MOV #BITB'BIT9,(R1) :CLOCK” INSTR 
1567 011710 156122 000004 BISB 4(R1),(R2)+ s STORE BM873_ ~ IN TABLE 
1568 011714 005722 TST (R2)+ :POP OVER STAT3 
1569 011716 005011 CLR (R1) [CLEAR ROMI 
1570 011720 005237 001310 INC DMNUM [UPDATE DEVICE COUNTER 
1571 011724 022737 000020 001310 CMP #20,DMNUM ;ARE MAX. NO. OF DEV FOUND? 
1572 011732 001412 BEQ 13% sYES DON'T LOOK FOR ANY MORE. 
1573 011734 005011 3$: CLR (R1) :CLEAR BIT 10 
1574 011736 005061 000006 CLR 6(R1) “CLEAR SEL 6 
1575 011742 062701 000010 14$: ADD #10,R1 “UPDATE CSR POINTER ADDRESS 
1576 011746 022701 170510 CMP #170510,R1 
1577 011752 001402 BEQ 13% ;BR IF DONE 
1578 011754 000137 011340 JMP 2$ : JUMP IF NOT 
1579 011760 005037 001306 13$: CLR DMACTV 
1560 011764 005737 001310 TST DMNUM sWERE ANY M8200-YC'S FOUND AT ALL? 
1581 011770 001423 BEQ 5$ sERROR AUTO SIZER FOUND NO M8200-YC'S IN THIS SYS. 
1582 011772 013701 001310 MOV DMNUM,R1 
1583 011776 010137 001314 MOV R1,SAVNUM ;SAVE NUMBER OF DEVICES 
1584 012002 000241 4$: CLC 
1585 012004 006137 001306 ROL DMACTV sGENERATE ACTIVE REGISTER OF DEVICES. 
1586 012010 005237 001306 INC DMACTV “SET THE BIT 
1587 012014 005301 DEC R1 
1588 012016 001371 BNE 4$ ;BR IF MORE TO GENERATE 
1589 012020 012737 000006 000004 MOV #6086 SRESTORE TRAP VECTOR 
1590 012026 013737 001306 001312 MOV DMACTV,SAVACT sSAVE ACTIVE REGISTER 
1591 012034 000137 012066 JMP VE CMAP :GO FIND THE VECTOR NOW. 
1592 012040 104402 005771 5$: TYPE ,MERR2 sNOTIFY OPR THAT NO M8200-YC'S FOUND. 
1593 012044 005000 CLR RO [MAKE DATA LIGHTS ZERO 
1594 012046 000000 HALT ‘STOP THE SHOW 
1595 012050 000776 BR .-2 [DISABLE CONT. SW. 
1596 012052 012716 011742 6$: MOV #14$, (SP) sENTERED 8Y NON“EXISTANT TIME-OUT. 
1397 012056 000002 RTI [RETURN TO MAINSTREAM 
1599 012060 000001 WHICH: 1 
1600 012062 002 002 .BYTE 2,2 
1601 012064 001256 TEMPS 
1603 012066 032737 000001 001236 VECMAP: BIT #sw00,STRTSW 
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0120 ; 5$ 
| 012076 012737 000340 000022 MOV #340,a#22 :SET IOT TRAP PRIO TO 7 
7606 012106 012737 012260 000020 MOV #4$,a#20 ‘SET IOT TRAP VECTOR 
1607 012112 012702 001500 MOV #OM_MAP,R2 ?SET SOFTWARE POINTER 
| 1608 012116 012700 000300 MOV #300,R0 ‘FLOATING VECTORS START HERE. 
| 1609 012122 012701 000302 MOV #302,R1 ‘PC OF I0T INSTR. 
1610 012126 010120 1$: MOV R1,(RO)+ :START FILLING VECTOR AREA 
| 1611 012130 012721 000004 MOV #4, (R1)+ sWITH .#2; IOT 
1612 012134 022021 CMP crO)+, (R1)+ ‘ADD 2 TO RO +1 
1613 012136 020127 001000 CMP R1,#1000 
| 1614 012142 101771 BLOS 1$ :BR IF MORE TO FILL 
1615 012144 013737 001306 001246 MOV DMACTV, TEMP1 *STORE TEMPORALLY 
| 1616 012152 006037 001246 2$: ROR TEMP1 sBRING OUT A BIT 
1617 012156 103063 BCC 5$ ‘BR IF ALL DONE 
1618 012160 012704 000012 MOV #12,R4 =R4 1S INDEX REGISTER 
1619 012164 016437 012330 177776 MOV BRLVL(R4),PS  :SET PS TO 7 
1620 012172 011201 MOV (R2),R1 
1621 012174 012761 000200 000004 MOV #200,4(R1) 
1622 012202 012711 001000 MOV #B1T9, (R1) SET ROMI 
1623 012206 012761 121111 000006 MOV #121111,6(R1) | :PUT INSTRUCTION IN PORT6 
1624 012214 012711 001400 MOV #BIT9'BITB,(R1) :FORCE AN INTERRUPT 
1625 012220 105200 7$: INCB~—_ RO STALL 
1626 012222 001376 BNE - [FOR TIME TO INTERUPT 
1627 012224 162704 000002 SUB #2,R4 [GET NEXT LOWEST PS LEVEL 
1628 012230 001404 BEQ 6$ “BR IF R4 = 0 
1629 012232 016437 012330 177776 MOV BRLVL(R4),PS | :MOVE NEXT LOWER LEVEL IN PS 
1630 012240 000767 BR 7$ ‘BR TO DELAY 
1631 012242 052762 005300 000002 6$: BIS #5300,2(R2) ‘NO INTERUPT ASSUME 300 AT LEVEL 5 AND FIX M8200-YC LATE 
1632 012250 005011 3$: CLR (R1) “CLEAR ROM 
1633 012252 062702 000010 ADD #10,R2 ;POP SOFTWARE POINTER 
1634 012256 000735 BR 2$ :KEEP GOING 
1635 012260 051662 000002 4$: BIS (SP) ,2(R2) *GET VECTOR ADDRESS 
1636 012264 042762 000007 000002 BIC #7,2(R2) ‘CLEAR JUNK 
1637 012272 016405 012332 MOV BRLVL+2(R4),R5 :GET BR LEVEL OF M8200-YC 
1638 012276 006305 ASL RS ‘SHIFT LEVEL 4 PLACES 
1639 012300 006305 ASL RS :TO THE LEFT FOR THE 
1640 012302 006305 ASL RS :STATUS TABLE 
1641 012304 006305 ASL RS 
1642 012306 042705 170777 BIC #170777,R5 :CLEAR UNWANTED BITS 
1643 012312 050562 000002 BIS RS,2(R2) ‘PUT BR LEVEL IN STATUS TABLE 
1644 012316 022626 CMP (SP)+, (SP)+ “POP IOT JUNK OFF STACK 
1645 012320 012716 012250 MOV #3$, (SP) *SET FOR RETURN 
1646 012324 000002 RTI 
1647 012326 207 5$: RTS PC :ALL DONE WITH "AUTO SIZING’ 
1649 012330 000000 _ BRLVL: 0 SLEVEL 0 
1650 012332 000000 0 “LEVEL 0 
1651 012334 000200 200 “LEVEL 4 
1652 012336 000240 240 “LEVEL § 
1653 012340 000300 300 “LEVEL 6 
1654 012342 000340 340 “LEVEL 7 
HF 
1657 012344 105777 166634 INTTY: TSTB aTKCSR sWAIT FOR DONE 
1658 012350 100375 BPL ah 
1659 012352 017703 166630 MOV aTKDBR,R3 :PUT CHAR IN R3 
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CRLPMB.P11 21-0CT-80 15: GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) ; SEQ 0049 
- 1660 012356 105777 166626 TSTB aTPCSR WAIT UNTIL PRINTER IS READY 
_ 1661 012362 100375 BPL 74 
1662 «012364 010377 166622 MOV R3,aTPDBR sECHO CHAR 
1663 012370 042703 000240 BIC #BIT7'BITS,R3  ;MASK OFF LOWER CASE 
1664 «012374 000207 RTS PC s RETURN 
1666 
78 012376 000000 ROMMAP: 0 :POINTER TO V5 OR V4 MICRO-CODE 
168 012400 VGMAP: :VERSION 4 MICRO-CODE 
1671 THE MICRO-CODE IMAGE RESIDES HERE - ONLY OCTAL NUMBERS 
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~-TITLE SLAVE.MAC1 
IDENT /4.01/ 


> LPA11<K MICRO CODE 


; CHARLES A. SAMUELSON 
; NOVEMBER, 1977 


060360 
022250 


022740 
023365 


023654 
000417 


103655 
103253 


103053 
060670 


100614 
063305 


002737 
002767 


023340 
070404 


020640 
020500 


102141 
023360 


102155 
000421 


000500 
061210 


102571 
060470 


v5map: 


. WORD 


. WORD 


. WORD 


. WORD 


. WORD 


- WORD 


. WORD 


. WORD 


- WORD 


«WORD 


. WORD 


- WORD 


. WORD 


. WORD 


- WORD 


- WORD 


456, 23240, 60360,101407, 22351, 22250,100406, 405 
62231, 33343, 22740, 73163,101012, 23365, 23366, 414 
61231, 23360, 23654,102441, 23210, 417, 60670, 73224 
53221, 60610,103655,103151, 61620,103253, 60530,113723 
100522, 61620,103053, 23230, 417, 60670, 73224, 53221 
60610,103742,100614,102456, 20660, 63305, 60534,107663 
103063, 20700, 63306, 60605,107024,103731,106204,106601 
61620,117121,116674, 60566,101422, 10374, 60606, 2776 
116113, 2775,116515, 2757,117267, 2577,117514, 61620 

2773,116671, 2737,117266, 60526, 2767,117116, 2677 
117670,100422, 23340, 63124, 410, 70404, 20640,102526 
22204, 36500, 20640,102532, 22205, 20500,102145, 415 
61230,120600,102141,120620,102146, 23360, 22520. 62210 
100417, 10012,102155, 10010, 23347, 421, 63220, 42226 
57230, 42227, 500, 62222, 22363, 61210, 20649,102566 


22202, 20640,102571, 22203, 63070, 60470, 62226, 61210 


SEQ 0050 


— o_o 
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| 1729 016776 062226 061210 
_ 1750 017002 120600 102200 060570 «WORD 120600,102200, 60570, 62226, 20640,102604, 22202, 20640 
Bee 062226 020640 102604 


7022 102607 022203 061210 «WORD 102607, 22203, 61210,100421, 500, 60704, 62230, 70201 
bee 100421 000500 060704 


06 
042 040620 061620 102646 . WORD 40620, 61620,102646,100643, 20620, 23357, 20640,102632 
050 iets 020620 023357 


0 
062 020600 100625 063177 - WORD 20600,100625, 63177,101226, 20640, 61620,103234, 20620 
017070 101226 020640 061620 


017102 020640 103240 022351 . WORD 20640,103240, 22351, 70204, 22740,100421, 423, 70401 
017110 070204 OST ot 100421 


9 

0 

1 

2 

3 

4 0423 

5 017122 050220 022740 100643 . WORD 50220, 22740,100643, 23374,100657, 401, 63234, 423 
6 017130 023374 100657 000401 
: 0171 063234 
9 

0 

1 

2 

3 

4 


at ot ot ot 
~“ 


017142 070401 050220 057230 WORD 70401, 50220, 57230,101702, 57231, 43232, 20640,102666 
017150 101702 057231 043232 


017162 062472 040371 101700 . WORD 62472, 40371,101700, 70212, 22600, 63174,101257,100421 
017170 070212 022600 063174 


017202 062610 100673 020640 . WORD 62610,100673, 20640,102702, 20600, 63174,101302,100421 
017210 102702 020600 063174 


5 

6 

7 06 000423 070401 - WORD 63237, 423, 70401, 50220, 57232, 57233, 54620, 43254 
; 017230 050220 057232 057233 
1 

2 

3 


7236 
017242 060374 165617 062474 . WORD 60374,165017, 62474, 40373,101727, 70214,164477, 62612 
017250 040373 101727 070214 


017262 100725 123150 123160 -WORD 100725,123150,123160, 60470, 63100, 61226, 61207, 577 
764 017270 060470 063100 061226 


1766 017302 063265 100421 063530 - WORD 63265,100421, 63530,103763, 23357, 20640,103345, 61620 
3763 Re o22t 020640 


022231 063177 «WORD 103345, 22231, 63177,191345, 20640,102354,102754, 22210 
020640 102354 


101354 100421 . WORD 63177,101354,100421, 63220, 436, 63270, 410, 70410 
000436 063270 


0 0 
107407 goeees - WORD 60520,107407, 56224, 42225, 415, 61230,120600,102376 
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000 022011 - WORD 20640,107000, 22011, 20640,107003, 22031,100421, 56226 
107003 022031 


061620 . WORD 42227, 20640, 61620,107011, 22222, 20040, 61620,107015 
022222 020640 


421 061230 . WORD 22223, 421, 61230,100421, 757, 63265, 60603,105435 


-OoO0— 
Pe 


ee ee ee ed ed ed ed oe od ed 
Wwo-n—OooO 

oS 

™ 

So 

o 

rs 

oO 


_ 

~“N 

N“N 

~ 
SOoOCOCOCOCOOCoOoOCooo 


c----— -- - ——_ — - - -- - - = —_——- —_—_ -_--—— _ — 


SLAVE .MA 
/CRLPMB.P 


Rin i ae 
MACY11 30G(1063) 24-OCT-80 09:23 PAGE 37 
21-OCT-80 15:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0052 


450 100421 000757 063265 


100421 . WORD 63467,105661,100421, 407, 73223, 63224, 53221,105646 
223 063224 


5 

; 

6246 043231 . WORD 57630,106246, 43231, 76571,105246, 43231, 76571,105246 
ast? 043231 
1 
7 
5 


oO 


Hy Le «WORD 43631, 61620,116747, 37373, 57220, 43232, 76572,105103 


Sooooo°oceo°ceono — 


SSNeSN 
o 
Ww 
oa 
Ww 
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1796 01 


= 
~m 


2 

2 105103 - WORD 43232, 76572,105103, 55220, 77173, 55222, 55223, 55224 
4 077173 055222 
5 

1 


060611 107254 - WORD 41225, 60611,107254, 70461,136500,136520, 74620,136400 
136500 136520 


1802 017602 136440 122460 104506 «WORD  136440,122460,104506, 70461, 36760, 22760, 60611,106126 
i 017610 Hinge 036760 022760 


1805 017622 106516 000513 100710 -WORD 106516, 513,100710,104665, 43220,104526, 63073,105126 
1806 017630 ese 043220 104526 


7 
1808 017642 000410 070401 043233 - WORD 410, 70401, 43233, 404, 70401, 42413, 60610,107550 
809 017650 000404 070401 042413 


060610 
017662 117367 010016 000477 -WORD 117367, 10016, 477, 60360,105136, 10014, 54620,106274 
017670 060360 105136 010014 


062203 - WORD 62226, 42227, 62203, 501, 62222, 421, 61230,100421 
017710 000501 recess 000421 


017722 000420 060704 062230 . WORD 420, 60704, 62230, 555,100710,104672, 42222, 561 
017730 000555 100710 104672 


00056 

017742 100710 104657 042223 -WORD 100710,104657, 42223, 60610,117367, 403, 60360,105274 
0610 367 000403 

1822 017756 060360 

Fert - WORD 10020, 63120, 54400,106274, 62226, 42227, 421, 61230 


000775 -WORD 104646, 10016, 775,104606, 10014, 776, 63265, 57220 
000776 


53 74 . WORD 63060, 63060, 62204, 42225, 415, 61230, 70603, 63224 


att WORD 53221,105646, 57230, 74620, 74620, 43231, 20640,107670 


sive - WORD 60604, 62230, 20640,106232, 22010, 60610,196676, 60620 


H 44 $1 - WORD 22030, 60611,107707, 60611, 61620,116542, 73565,105035 
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1841 020122 060607 101421 063167 . WORD 60607,101421, 63167,104433, 70201, 76470,104474, 602 
1842 020130 104433 070201 076470 

1843 020136 104474 000602 

1844 020142 110706 000601 110706 «WORD 110706,  601,110706,  600,110706, 440, 21365,110706 
1845 020150 000600 110706 000440 

1846 020156 021365 110706 

1847 020162 20 104666 000460 . WORD 420,104666,  460,104666,  500,104666, 70201, 43233 
1848 020170 104666 000500 104666 

1849 020176 070201 043233 

1850 020202 000775 062673 023035 . WORD 775, 62673, 23033, 600, 60713, 62230,104641, 440 
1851 020210 000600 060713 062230 

1852 020216 104641 000440 

1853 020222 060704 062230 020640 . WORD 60704, 62230, 20640,106312,122150, 20640,106315,122170 
1854 020230 106312 122150 020640 

1855 020236 106315 122170 

1856 020242 104643 045231 000724 «WORD 104643, 43231, 724,100710,114743, 42222, 730,100710 
1857 020250 100710 114743 042222 

1858 020256 000730 100710 

1859 020262 104657 114731 063237 WORD 104657,114731, 63237, 404, 60360,115261, 422, 60400 
1860 020270 000404 060360 115261 

1861 020276 000422 06. 9 

1862 020302 070400 057533 116261 . WORD 70400, 57633,116261, 43232, 700, 60712, 62227, 62225 
1863 020310 043232 000700 060712 

1864 020316 062227 062225 

1865 020322 060530 113411 111000 - WORD 60530,113411,111000, 402, 60413, 62224, 415, 61250 
1866 020330 000402 060413 062224 

1867 36 000415 061230 

1868 020342 060612 107766 060611 . WORD 60612,107766, 60611, 61620,106766,174477,120600, 106366 
1869 020350 061620 106766 174477 

1870 020356 120600 106366 

1871 020362 022002 022023 022106 - WORD 22002, 22023, 22106, 421, 61230, 60612,113410,110417 
1872 020370 000421 061230 060612 

18/3 020376 113410 110417 

1874 020402 000404 060413 062226 . WORD 404, 60413, 62226, 421, 61230, 60611, 61620,112424 
1875 020410 000421 061230 060611 

1876 020416 061620 112424 

1877 020422 174477 060611 113017 WORD 174477, 60611,113017,111021, 60612,113417,174477, 577 
1878 111021 060612 113417 

1879 020436 174477 000577 

1880 020442 110426 060532 113424 -WORD 110426, 60532,113424,174477, 677, 63073, 62672, 500 
1881 020450 174477 000677 063073 

1882 020456 062672 000500 
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223 060613 . WORD 62222, 62223, 60613, 62226, 621, 61230,174477, 10015 
020470 062226 000621 061230 


020502 042225 056227 FEE e: - WORD 42225, 56227, 37372, 14421, 61223, 43235, 10100. 407 


0004 
023357 063177 . WORD 63236, 23357, 63177,111052, 20660, 20640, 61620,112455 
020660 020640 
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QO 113674 . WORD 20660, 60610,113674, 60531,113150,110534, 57000, 63172 
0 110534 
2 
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g 
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122088 «WORD = 111073, 123012,123040, 22030, 56226, 56222, 62203, 55250 
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SLAVE .MAC1 
CRLPMB.P11 21-OCT-80 15:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0054 
1897 020576 062203 055230 
1898 020602 056224 023655 061620 - WORD 56224, 23655, 61620,113122, 10014, 22362, 56226,135070 
| 1899 020610 113122 010014 022362 
| 1900 020616 $76268 135070 
| 1901 020622 040620 102224 120600 . WORD 40620,102224,120600,112112, 42226,121070, 20640, 61620 
/ 1902 020630 112112 042226 121070 
| 1903 020636 020640 061620 , 
| ©1904 020642 113116 100624 112501 ~WORD 113116,100624,112501, 55230, 60535,111145,107663, 20660 
1905 020650 055230 060535 111145 . 
1906 020656 107663 020660 
1907 020662 056222 055230 022010 . WORD 56222, 55230, 22010, 50220, 60611,112073,112466, 20640 
1908 020670 050220 060611 112073 
1909 020676 1124 020640 
1910 020702 112543 023200 110473 «WORD 112543, 23200,110473,  440,110546, 420, 62231,110504 
1911 020710 000440 110546 000420 
1912 020716 062231 110504 
1913 020722 123012 056222 6226 «WORD 123012, 56222, 56226, 60611,112161,112561, 20640,112556 
1914 020730 060611 112161 2561 
1915 020736 020640 112556 
1916 020742 023200 062203 5230 . WORD 23200, 62203, 55230,120600,112163, 56226, 56222, 55230 
1917 020750 120600 112163 6226 
1918 020756 056222 055230 
1919 020762 110627 062203 6224 -WORD 110627, 62203, 56224, 23655, 61620,113177,110504,112573 
1920 020770 023655 061620 3177 
1145 . WORD 55230, 60535,111145,107663, 60620, 60620, 22010, 20420 
1923 021010 107663 060620 0620 


1925 OS 1ats ts574 055230 062230 WORD 56224, 55230, 62230, 20660, 60620, 60620, 56226, 22010 


1928 021042 055230 120600 112221 - WORD 55230,1206000,112221, <2030, 56226, 55230. 50220, 60611 
1929 021050 022030 poseet 055230 


61 
1931 0 112172 112636 020640 WORD 112172,112636, 20640,112543, 22203,110572, 57000, 63172 
1932 021070 112543 022203 110572 

1933 021076 657000 063172 

1934 021102 111171 123012 123040 WORD 111171, 123012,123040,110571, 43000, 63172.111251,123012 
1935 021110 110571 043000 063172 

936 021116 111251 123012 | 

1937 021122 123040 060520 060376 WORD 123040, 60520, 60376,111256,  500,110546, 60415, 62226 
938 021130 111256 000500 110546 

1939 021136 060415 062226 

1940 021142 020640 112703 061620 WORD —-20640,112703, 61620,113265,100624,112660, 22202, 20640 
941 021150 113265 100624 112660 

1942 021156 022202 020640 ° 

1943 021162 112667 022203 121070 WORD 112667, 22203,121070, 20660, 60611,112251,112644, 20640 
1944 021170 020660 060611 112251 

1945 021176 112644 020640 

1946 021202 112543 023200 110651 WORD 112543, 23200,110651, 460, 62231,110516,113710, 60704 
1947 021210 000460 062231 110516 

1948 021216 113710 060704 

1949 O21222 061220 020640 113311 WORD 61220, 20640, 113311, 122011, 120400, 103421120520, 102021 
1950 021230 122011 120400 103421 

1951 021236 120520 102021 

1952 021242 116707 117142 104646 WORD —-116707,117142,104646, 21345, 20640,112724, 23211, 20040 
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CRLPMB.P11 21-0CT-80 15:08 GENERAL UTILITIES (TYPECUT, ERROR, SCOPE, ETC) SEQ 0055 
1953 021250 021345 020640 112724 
1954 021256 023211 020640 
1955 021262 Vi§5e5 023210 060530 «WORD 112727, 23210, 60530,113345, 10100, 20640,112735, 23212 
1956 021270 113345 010100 020640 
1957 021276 112735 023212 
1958 0213502 020640 112740 036600 . WORD 20640,112740, 36600, 63172,111340, 70604, 63233, 434 
1959 021310 og tty 111340 070604 
1960 021316 063233 000434 
1961 021322 063221 000424 063173 - WORD 63221, 426, 63173,111756, 63001,110752, 72601, 14415 
1962 021330 111756 063001 110752 
1963 021336 072601 014415 
1964 021342 063232 000401 063233 . WORD 63232, 401, 63233, 20640,112763, 36600, 63173,111373 
1965 021350 020640 112763 036600 
1966 021356 063173 111373 
1967 021 076611 000407 070401 . WORD 76611, 407, 70401, 63172,111363, 407, 70401, 57220 


362 
1968 021370 063172 111363 000407 


1970 021402 075202 055220 043233 . WORD 75202, 55220, 43233, 404, 70401, 76600,136400, 62613 
1971 021410 000404 070401 076600 


1973 021422 060530 117013 110437 «WORD 60530,117013,110437,115015,114427, 402, 63232, 20640 
1974 021430 115015 114427 000402 


1976 021442 117511 000420 060704 WORD 117511, 420, 60704, 62230, 63172,115021,114432, 60611 
2230 063172 115021 


6062 116462 000404 «WORD 116062,116462, 404, 63310, 674, 73232, 403, 63234 
1980 021470 063310 000674 073232 


1982 021502 040620 115450 000420 - WORD 40620,115450, 420, 73012, 63174,115040, 400,110706 
1983 021510 073012 063174 115040 


1984 021516 000400 110706 

1965 021522 000423 070401 072612 - WORD 423, 70401, 72612, 404, 62412, 57234, 420, 76412 
1986 021530 000404 062412 057234 

1987 021536 000420 076412 

1988 021542 076614 062614 060611 . WORD 76614, 62614, 60611,117072, 60531,117504, 70201, 635 
1989 021550 117072 060531 117504 

1990 021556 070201 000635 


1991 021562 062670 100421 063070 . WORD 62670,100421, 63070, 415, 70401, 43220, 500, 63310 
1992 021570 000415 Or eeto 043220 


994 021602 000502 104732 114507 . WORD 502,104732,114507,114464, 23371, 416,114474, 500 
995 021610 114464 023371 000416 


1997 021622 110706 000420 110706 -WORD 110706,  420,110706, 63060, 63060, 63060, 63060, 43266 
1998 pe 1629 063060 063060 063060 


23 000737 063265 -WORD 114523, 737, 63265, 23376, 407, 73224, 53221,115542 
6 000407 073224 


074620 074620 . WORD 57230, 74620, 74620, 57631,117155, 60531,117572, 60611 
117155 060531 


0 
2 
; 116611 073164 . WORD 61620,116611, 73164,115126, 63176,101021, 63120, 423 
0 
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CRLPMB.P11 21-0CT-80 15:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0056 
2009 021722 070400 000600 043234 . WORD 70400, 600, 43234, 62714,100421, 415, 70401, 54360 
2010 021730 062714 100421 000415 
2011 021736 070401 054360 
oe 021742 115562 114535 014564 «WORD =115562,114535, 14564,114626,114535, 70201, 776, 43234 
2013 021750 114626 114535 070201 
2014 021756 000776 043234 
2015 021762 062674 114535 000416 - WORD 62674,114535, 416, 70601, 40360,115577,114537, 421 
2016 021770 070401 040360 115577 
2017 021776 114537 000421 
2018 022002 070401 000603 114626 . WORD 70401,  603,114626,114537, 70201, 43230, 402, 62710 
2019 022010 114537 070201 043230 
2020 022016 000402 062710 
2021 022022 114537 060530 117142 WORD 114537, 60530,117142, 404, 70401, 40360,115620,114542 
2022 022030 000404 070401 040360 
2023 022036 115620 114542 


2024 022042 000622 114626 060620 . WORD 622,114626, 60620, 20640,117662,104630, 61223, 57234 
2025 022050 see rt 117662 104630 


2027 022062 043235 060576 115246 «WORD 43235, 60576,115246, 63076, 60610, 61220, 60611, 61222 
2028 022070 063076 060610 061220 


2030 022102 000424 063230 063231 . WORD 424, 63230, 63231,  645,104732, 60620,123077,123019 
2031 022110 000645 104732 060620 


2033 022122 123051 020400 063274 -WORD 123051, 20400, 63274, 63174,111010, 20420, 63275, 63175 
2034 022130 063174 111010 020420 


2036 022142 111010 174617 000404 -WORD 111010,174617, 404, 61225,  420,110706, 63060, 63060 
2037 022150 061225 000420 110706 


2039 022162 063060 063060 043266 . WORD 63060, 63060, 43266,114676, 773, 63265, 23376, 407 
2040 022170 114676 000773 063265 


2042 022202 073224 053221 115707 . WORD 73224, 53221,115707, 57230, 74530,117307,115320, 75164 
2043 022210 057230 074530 117307 


2045 022222 115301 063176 101021 ~WORD 115301, 63176,101021, 63120, 423,.70400, 500,114552 
2046 022230 063120 000423 070400 | 

2047 022236 000500 114552 

2048 022242 074610 117323 114707 . WORD 74610,117323,114707, 60576,115337, 420, 60704, 62250 
2049 022250 060576 115337 000420 


2051 022262 104721 042223 000734 ~WORD 104721, 42223,  734,104732, 60620, 63076,114707, 401 
2052 022270 104732 060620 063076 


7 
2054 022302 061225 000560 110706 . WORD 61225,  560,110706, 402, 61225,  460,110706, 60530 
2055 022310 oooh 061225 000460 


2057 022322 117352 104646 000767 «WORD 117352,104646, 767, 77670, 43220, 70201, 62620,117361 
30 arene 043220 070201 


6 
2 104646 000500 063310 ~WORD 104646, 500, 63310,  765,104732,104674,104646, 771 
000765 104732 104674 


2 104732 104674 060610 -WORD 104732,104674, 60610,107646, 104626, 0, 0, 0 
0 107646 104626 000000 


SLAVE .MACT 
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2065 
2066 
2067 
2068 


022376 000000 000000 
022402 177777 
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«WORD = =1 


SEQ 0057 
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43 
CRLPMB.P11 21-0CT-80 15:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0058 
2069 
2070 
2071 
2072 peeeneerecereteeeeeeeereerene TEST 1 teerereeeeererererereereres 
2073 s*THIS IS A SPECIAL TEST WHICH WILL RUN ON A KMC (DMC WITH 
2074 ;*WRITTABLE CONTROL STORE) TO LOAD THE CRAM WITH THE DDCMP 
2075 :*MICRO=CODE. FIRST BE SURE BIT1 OF STAT3 IS SET UP AS FOLLOWS 
2076 3*1=LOCAL HIGH SPEED CODE, O=REMOTE LOW SPEED CODE THE STATUS 
2077 7*OF STATS BIT1 DETERMINES WHICH MICRO-CODE WILL 
2078 ;*BE LOADED IN THE KMC. LOOP ON THIS TEST FOR A FEW SECONDS 
2079 3*T0 LOAD THE KMC. 
2080 s RRAAHRAA ATA A eee eee Hee eee KeeKeneeeHeRAeteeeeeetereTereereerere 
2081 
2082 5 VEST i 
2083 pomereeroceceo- 
2084 022404 012737 000001 001226 TST1: MOV #1,TSTNO 
2085 022412 012737 022476 001216 MOV #TST2,NEXT 
2086 7R1 CONTAINS BASE M8200-YC ADDRESS 
2087 022420 004737 026434 JSR PC ,MAPCK ;CHECK FOR HI OR LO 
2088 022424 032737 100000 001366 BIT #BITI5,STAT1 ;BE SURE DMC HAS CRAM 
2089 022432 001420 BEQ 2$ ;SKIP IF NO CRAM 
2090 022434 005000 CLR RO ;RO=CRAM ADDRESS 
2091 022436 013702 012376 MOV ROMMAP ,R2 ;R2 POINTS TO ROMMAP 
2092 022442 012711 002000 1$: MOV #B1T10,(R1) SET ROMO 
2093 022446 010061 000004 MOV RO,4(R1) ;LOAD CRAM ADDRESS 
209% 022452 012261 000006 MoV (R2)+,6(R1) [LOAD WORD TO BE WRITTEN 
2095 022456 052711 020000 BIS #81718, (R1) iWRITE IT! 
2096 022462 005200 INC RO NEXT ADDRESS 
2097 022464 022700 002000 CMP #2000,R0 ;DONE YET? 
2098 022470 001364 BNE 1$ ;BR IF NO 
2099 022472 005011 CLR (R1) ;CLEAR SELO 
the 022474 104400 2$: SCOPE ;SCOPE THIS TEST 
U 
2102 
2103 peeeeeeeeereretrrererereeene TEST 2 reecereceneneeeeereernerere 
2104 ;*TEST OF BR RIGHT SHIFT 
2105 s*VERIFY THAT A DEST OF BR RSH (011) OF A MICRO-INSTRUCTION 
2106 ‘*#SHIFTS THE RESULTING BR DATA RIGHT ONCE. 
2107 Pp RAAKAAAAA AAA e AA AeA rere ee eA Ket A Aree Keer etter erererere ree 
2108 
si%0 s ves’ ? 
2111 022476 012737 000002 001226 ITST2: MOV #2,TSTNO 
2112 022504 012737 022610 001216 MOV #TST3,NEKT 
2113 3R1 CONTAINS BASE M8200-YC ADDRESS 
2114 022512 104412 MSTCLR MASTER CLEAR M8200-YC 
2115 022514 013701 001404 MOV DMCSR,R1 ;R1 = DMC BASE ADDRESS 
2116 022520 005011 CLR (R1) ;CLEAR SELO 
2117 022522 012705 052525 MOV #52525,R5 START WITH 125 
2118 022526 010561 000004 MOV R5,4(R1) PORTS 125 
2119 022532 104414 ROMCLK NEXT QORD IS INSTRUCTION, ROMCLK PC=5304 
2120 022534 120500 120500 7BR _ PORTS 
2121 022536 104414 ROMCLK :NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
2122. 022540 061620 061620 ;BR RSH_BR, SHIFT BR RIGHT 
2123 022542 104414 ROMCLK ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2124 022544 061225 061225 ;PORTS_BR 
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022610 
022616 
022624 


022632 


022730 
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006005 


104012 
104414 


104400 


000005 


000005 


000003 
023004 
022662 
100000 
026434 
012376 
014377 
022702 
022702 
002000 
000006 


001252 
001252 
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001226 TST3: 
001216 


001220 


001366 


022702 


23: 


1$: 


2$: 


5 
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GENERAL UTILITIES (TYPEOUT, ERROR, * Score, ETC) 


061620 


R5 3R5 = "EXPECTED" 

5(R1) ,R4 pR4 = 

R5,R4 [DID BR SHIFT RIGHT ONCE? 
1$ BR IF YES 

12 :BR RIGHT SHIFT ERROR 


sent WORD IS INSTRUCTION, ROMCLK PC=5304 
R RSH_BR, SHFT BR RIGHT AGAIN 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


:PORTS 
R5 = mEXPECTED" 
5(R1),R4 ihe = ""FOUND"’ 
R5,R4 :D1D BR SHIFT RIGHT? 
2$ IF YES 
12 ‘BR RIGHT SHIFT ERROR 


;SCOPE THIS TEST 


peteeekeneeerererereereeeneeee TEST 3 eaaeeeraeneeearererenrennee 
;*CROM READ TEST 

;*THIS TEST READS EACH ROM LOCATION AND COMPARES 

s*I1T TO A SOFTWARE DUPLICATE OF THE CROM. THIS TEST 

;*ALSO TESTS THE JUMP(I1) MICRO-PROCESSOR INSTRUCTION. 

;*1F THIS TEST FAILS CHECK YOUR CROM PART NUMBERS. 

;#CRLPM-B SUPPORTS THE FOLLOWING PART NUMBERS: 


‘ «MB200-YC~AR (M8200-YA) 


PIAA eeeeeeeeeeteeetereeteneKtkenkeneetateeteeneeneaenesenererse 


: TEST 3 
MOV #3, TSTNO 
MOV #TST4,NEXT 
MOV #1$,L0CK 
:R1 CONTAINS BASE M8200-YC ADDRESS 

MSTCLR “MASTER CLEAR M8200-YC 
BIT #BIT15,STAT1 | :1S IT RAM OR ROM 
BNE 4$ “SKIP TEST IF CRAM 

JSR PC, MAPCK : CHECK FOR HI OR LO 

CLR (Ri) “CLEAR R 
MOV ROMMAP ,RO =RO POINTS TO SOFTWARE ROM MAP 

CLR R2 “R2 CONTAINS ROM ADDRESS BITS 0 

CLR R3 =R3 CONTAINS ROM ADDRESS BITS 839 IN BITS 
BIC #14377 ,2% “CLEAR ADDRESS FIELDS OF INSTRUCTION 
BIS R2,2$ ‘ADD BITS 0-7 TO INSTRUCTION 
BIS R3.2$ ‘ADD BITS 11812 TO INSTRUCTION 

ROMCLK “NEXT WORD IS INSTRUCTION, ROMCL PC=5304 
100400 : JUMP(1) TO ROM ADDRESS IN R2 & R3 
MOV #B1T10,(R1) “SET ROMO 
MOV (RO) RS :PUT EXPECTED’ IN RS 
MOV 6(R15,R4 “PUT "FOUND' IN R4 

CMP R5,R4 ‘COMPARE ROM CONTENTS TO SOFT DUP 
BEQ 3$ <BR IF OK 
MOV R3, TEMPS ‘PUT ROM ADDRESS IN TEMP3 

LC “FOR ERROR TYPEQUT 

ROR TEMP3 | 


: 1812 


SEQ 0059 
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7 
023104 
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104400 


012737 
012737 
012737 


104412 


004737 
004737 


012737 
004737 
104414 
100403 
104414 


100000 
004737 


000010 
020504 
001401 


000400 


004000 
020000 


000004 
023200 
023044 


100000 
026434 
026300 


026372 


023104 
026300 


026372 


MACY11 go 


001226 
001216 
001220 


001366 


001220 
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;TEMP3 NOW CONTAINS CORRECT ADDRESS 
;ROM READ ERROR 
;LOOP TO 1$ IF SwO9=1 
;BUMP SOFT POINTER 
st ROM ADDRESS 
S$ R2 TO MAX YET? 


‘BR IF NO 

;YES, RESET R2 TO 0 

INC. TO NEXT PAGE OF ROM 
;DONE YET? 


BR IF NO. 
;SCOPE THIS TEST 


peeeeeeeeeeeerererereeeeeeee TEST 4 teeneeananeeaneraeerereeees 


:*CROM TEST OF JUMP(1) NEVER MICRO-PROCESSOR INSTRUCTION. 


:*VERIFY THAT THE JUMP DID NOT OCCUR BY READING 
;*THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


: MARRBERARARARARRRAARRARERASARERRRR RASA RRR R RRR RRR RRA RASA RRR REDS SE SD | 


;R1 CONTAINS BASE M8200-YC ADDRESS 
sMASTER CLEAR M8200-YC 

SKIP TEST IF YES 

;CHECK FOR HI OR LO 


;CLEAR ALL CONDITIONS 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;START AT ROM PC=0 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; JUMP TO ROM PC OF 1777 

sRS=EX =EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


NDEX 
;ARE NEW PC CONTENTS CORRECT? 
:BR IF YES 

ZERROR, CROM PC IS WRONG 
;LOOP TO 1$ IF SwO9=1 

;NEW SCOP1 


CROM READ TESTS 
ROR TEMP 
ROR TEMP 
BIS R2, TEMP3 
HLT 4 

3$: SCOP1 
TST (RO)+ 
INC R2 
CMP #400,R2 
BNE 1$ 
CLR R2 
ADD #4000,R3 
CMP #20000, R3 
BNE 

4$: SCOPE 

;*PERFORM THE JUMP INSTRUCTION 

> TEST 4 

TST4: MOV #4, TSTNO 
MOV #TST5 NEXT 
MOV #1$,LOCK 
MSTCLR 
BIT #BIT15,STATI 
BNE $+ 

13 JSR PC ,MAPCK 
JSR PC,CLRALL 
ROMCLK 
100400 
ROMCLK 
114377! <400*0> 
. PC,ROMDAT 
CMP R5,R4 
BEQ 2$ 
HLT 6 

2$: SCOP1 

m MOV #3$,LOCK 


JSR PC,CLRALL 
ROMCLK 
Mb ay 


100000! <400+0> A sad TO’ ROM 


JSR PC,ROMDA 
10 


CMP R5,R4 
BEQ 4$ 


;CLEAR ALL CONDITIONS 

NEXT WORD IS ‘clams ROMCLK PC=5304 
: START AT ROM PC=3 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


PC OF 0 
;RS=EXPECTED ROM DATA,K4=ACTUAL ROM DATA 


; INDEX 
SARE NEW PC CONTENTS CORRECT? 
:BR IF YES 


SEQ 0060 
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023132 


VYMSELS 
ALN OFS 


023176 


023200 
023206 
023214 


023222 


104006 
104401 
012737 


104400 


104006 
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023144 
926300 


026372 


000005 
023360 
023240 


100000 
026434 


026372 


023274 


026372 
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CROM JUMP 


001220 


001220 


6$: 


TSTS: 


1$: 


23: 
3$: 


24-OCT-80 09:23 
TESTS 


HLT 6 

SCOP1 

MOV #5$,LOCK 
JSR PC,CLRALL 


K 
104125: <400*0> 
JSR PC ,ROMDAT 


CMP R5,R4 
6$ 


peeeeeeeereerereeretereeeene TEST 5 


J 5 
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ERROR, CROM + I$ ~ pa 
:LOOP TO a SwO9=1 
:NEW SCOP1 


CLEAR ALL CONDITIONS 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:START AT ROM PC=6 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;JUMP TO ROM PC OF 525 

:RS=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 

TARE NEW ROM PC CONTENTS CORRECT? 
;BR IF YES 

ERROR, CROM PC IS — 

[LOOP TO 5$ IF Sw59=1 

SCOPE THIS TEST 


RHEeeeeetakeaetenenaeeteeeeeese 


>*CROM TEST OF JUMP(I) ALWAYS MICRO-PROCESSOR INSTRUCTION. 
;*PERFORM THE JUMP INSTRUCTION 
fn nn THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


PRAAEAAAATERAAAHATAKeEe eee Keetateneeneteeteneteteeteteterenerene 


: TEST 5 
MOV #5,TSTNO 
MOV #TST6,NEXT 


MOV #1$,LOCK 


BIT #BIT15,STAI1 


BNE 6$+2 

JSR PC ,MAPCK 
ROMCLK 

100400 

ROMCLK 
114377!'<400*1> 
JSR PC ,ROMDAT 
3776 

CMP R5,R4 

BEQ 2$ 

HLT 6 

SCOP1 

MOV #3$,LOCK 
ROMCLK 

Lb sony 

190000: <400e1» 
. C,ROMDA At 
CMP R5,R4 
BEQ 4% 

HLT 6 


7R1 CONTAINS BASE M8200-YC ADDRESS 
sMASTER CLEAR M8200-YC 

;1S IT CRAM? 

SKIP TEST IF YES 

;CHECK FOR HI OR LO 


>NEXT . i INSTRUCTION, ROMCLK PC=5304 
;START AT ROM PC=0 

pNEXT WORD T's INSTRUCTION, ROMCLK PC=5304 
; JUMP TO ROM PC OF 1777 

‘abe EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 
ARE ay hy CONTENTS CORRECT? 


SERROR, CROM PC IS WRONG 
; LOOP To 1$ IF SwO9=1 


:NEW SCOP1 


sNEXT = IS INSTRUCTION, ROMCLK PC=5304 
:START A ROM PC=3 
;NEXT swoRo IS INSTRUCTION, ROMCLK PC=5304 


JUMP TO” ROM P 


C OF 0 
;R5= ore ROM DATA,R4=ACTUAL ROM DATA 


N 
‘ARE NEW PC CONTENTS CORRECT? 
:BR IF Y 
ERROR, CROM PC IS WRONG 


SEQ 0061 


CRLPMB.P 


Nm 
~m 


023356 


mr 
WAG 

WWAww 

NOWPw 

Sooooooooo 

Mrr~rr 

EFEEE 

Mun & && 

MOA SNW 


w 


WAG 
SSS 
ooo 
MPT 

rs 
o 
So 


2311 
2312 
2313 
2314 
2315 
2316 
2317 023360 
2318 023366 
2319 023374 
2320 
2321 
2322 
2323 023412 


POPIPIPONMIPIMYNMPOMONMPY NPY Porro 
FEFSEELESE 
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104401 
012737 


104414 


104401 
104400 


012737 
012737 
012737 


104412 


004737 
004737 
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023330 


026372 


000006 
023554 
023420 


100000 
026434 
026346 


026372 


023460 
026346 


026372 
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001220 


001226 
001216 


6$: 


TST6: 


001220 - 


001366 


001220 


1$: 


2s: 
3$: 


. % 
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CROM JUMP TESTS 


SCOP1 
MOV #5$,LOCK 


ROMCLK 
100406 


ROMCLK 
104125!<400*1> 
JSR PC ,ROMDAT 
1252 
CMP R5,R4 

6$ 


peeeneeeeeeererererererenene TEST 


; LOOP 4 a IF SwO9=1 
:NEW SCOP 


;NEXT WORD IS eo ROMCLK PC=5304 
;START AT ROM PC=6 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;JUMP TO ROM PC OF 525 

:RS=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 

SARE NEW ROM PC CONTENTS CORRECT? 
;ERROR, CROM PC IS WRONG 

;LOOP TO 5$ IF SW59=1 

;SCOPE THIS TEST 


RERTRARERAEAAEAEAREKAEAAAEREE 


:*CROM TEST OF JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 
:*SET THE C BIT, PERFORM THE JUMP INSTRUCTION, 
forse THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


SRR AAEEEEE EERE ee 


MOV #6, TSTNO 
MOV #TST7,NEXT 
MOV #1$,LOCK 


JSR PC ,MAPCK 


BIT #B1T15,STAT1 
6$+2 


;R1 CONTAINS BASE — YC ADDRESS 
;MASTER CLEAR M8200-Y 
1S 1T CRAM? 


;SKIP TEST IF YES 
;CHECK FOR HI OR LO 


JSR PC,SETC ;SET THE o BIT’ 


ROMCLK 
114377!<400*2> 
JSR PC ,ROMDAT 


CMP R5,R4 
2% 
6 
MOV #3$,L0CK 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:START AT ROM PC=0 

[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;JUMP TO ROM PC OF 1777 

:R5=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 
ARE Pees CONTENTS CORRECT? 


TERROR, CROM PC IS WRONG 
:LOOP TO 1$ IF SwWO9=1 


NEW SCOP1 


JSR PC,SETC ;SET THE o BIT" 


190000: <400e2> 
PC ,ROMDAT 


CMP R5,R4 
BEQ 4% 
HLT 6 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; START AT ROM PC=3 
;NEXT -— ay INSTRUCTION, ROMCLK PC=5304 


; JUMP TO ROM PC 


:ASSEXPECTED ROM DATA,R4=ACTUAL ROM DATA 


“ARE NEW PC CONTENTS CORRECT? 
;BR IF YES 
ERROR, CROM PC IS WRONG 


SEQ 0062 


a | 
‘CRLPMB. 


yy tt hy + bee 
MRO LFOONO 


023552 


023554 
023562 
023570 


023576 
0 0 


104401 
012737 


004737 
104414 


104400 


012737 
012737 
012737 


104412 
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023520 
026346 


026372 


000007 
023750 
023614 


100000 
026434 
026364 


026372 


023654 
026364 


026372 


MACY11 og 


001220 


001226 
001216 
001220 


001366 


001220 


6$: 


TST7: 


1$: 


2s: 
3$: 
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CROM JUMP TEST 


SCOP1 
MOV #5$,LOCK 


; LOOP 4 2 7 IF SwO9=1 
NEW SCO 


JSR . PC,SETC ;SET THE o BIT’ 


ROMCLK 
104125!<400*2> 


12 
CMP R5,R4 
6$ 


;NEXT WORD IS — ROMCLK PC=5304 

; START AT ROM PC=6 

ar WORD IS TNS TRUCTION, ROMCLK PC=5304 
O ROM PC OF 525 


UMP T 
:ASSEXPECTED ROM DATA,R4=ACTUAL ROM DATA 
+ ARE NEW ROM PC CONTENTS CORRECT? 


:BR IF 

ERROR, CROM PC IS WRONG 
:LOOP TO 5$ IF SW59=1 
;SCOPE THIS TEST 


peeeeeeeeeeeeeetereettereeee TEST 7 seeererareraereeeerenenetene 
[*CROM TEST OF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
;*SET THE Z BIT, PERFORM THE JUMP INSTRUCTION, 

Ayn THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


SRE EAA AE AAA AAEAAAARAAAAEAAEAEAAAEEAAAAEARAEKHRAREAAEE 


MOV #7, TSTNO 

MOV #TSTIO,NEXT 

MOV #1$,LOCK 

BIT #BIT15,STATI 
6$+2 


JSR PC ,MAPCK 


;R1 CONTAINS BASE M8200-YC ADDRESS 
MASTER CLEAR M8200-YC 

21S IT CRAM? 

:SKIP TEST IF YES 


SCHECK FOR HI OR LO 


JSR PC,SETZ ;SET THE l BIT’ 


ROMCLK 
114377!<400*3> 
PC,ROMDAT 


CMP R5,R4 
2$ 


MOV #3$,LOCK 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

:START AT ROM PC=0 

3NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
JUMP TO ROM PC OF 1777 

‘RSs EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 
TARE ~ PC CONTENTS CORRECT? 
;BR ES 


Y 
‘ERROR, CROM PC IS WRONG 
;LOOP 70 1$ IF SwO9=1 


:NEW SCOP1 


JSR PC,SETZ ;SET THE l BIT’ 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; START AT ROM PC=3 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


190000: <400e3> ; JUMP TO’ ROM PC 


PC ,ROMDAT 


0 
CMP R5,R4 
BEQ 4% 


OF 0 
;RS=EXPECTED ROM DATA,K4=ACTUAL ROM DATA 


; INDEX 
TARE NEW PC CONTENTS CORRECT? 
:BR IF YES 


SEQ 0063 


a -MAC1 


PMB.P11 
| 
| 2405 023702 
| 2406 023704 
| 2607 023706 
/ 2408 023714 
2409 023714 
2410 023720 
2411 023722 


5420 023746 


2431 023750 
2432 023756 
2433 023764 


2435 023772 


064 
2459 024070 
2460 024072 
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104006 
104401 
012737 


104400 


012737 
012737 
012737 


104412 


023714 
026364 


026372 


000010 
024144 
024010 


100000 
026434 
026316 


026372 


024050 
026316 


026372 


MACY11 2 gsc 


001220 


001220 


5 
ish 09:23 "PAGE 49 


CROM JUMP T 
HLT 6 ZERROR CROM PC 1$ WRONG 
4$: SCOP1 P to 3 sw09=1 
. MOV #5$,LOCK 4 SCO 
JSR PC,SETZ ;SET THE 2 BIT’ 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100406 ‘START AT ROM PC=6 
ROMCLK ;NEXT WORD 1S. INSTRUCTION, ROMCLK PC=5304 
104125 !<400*3> «JUMP TO ROM PC OF 525 
JSR PC ,ROMDAT its EXPECTED ROM DATA,R4=ACTUAL ROM DATA 
CMP RS,R4 SARE NEW ROM PC CONTENTS CORRECT? 
BEQ 6$ ‘BR IF YES 
HLT 5 ZERROR, CROM PC IS WRONG 
6$: SCOP1 OOP TO 5$ IF Sw59=1 
SCOPE ‘POPE THIS TEST 
PRRAAAAAAAAAEEe eee ee eee eee TEST 10 RAEAARAARAAARAAARERAREREAREEEEEEEE 
“*CROM TEST OF JUMP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION. 
teSET THE BRO BIT, PERFORM THE JUMP INSTRUCTION, 
i *VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 
SREREREEREAEAAEEAEAAAEAEAAAAAAREAAAAAARERERARAARARAAEA RAAT 
: TEST 10 
TST10: MOV #10, TSTNO 
MOV #TST11, NEXT 
MOV #1$,LOCK ; 
:R1 CONTAINS BASE M8200-YC ADDRESS 
MSTCLR <MASTER CLEAR M8200-YC 
BIT #BITIS,STAI1 1S IT CRAM? 
BNE 6$+2 =SKIP TEST IF YES 
“i JSR PC ,MAPCK ‘CHECK FOR HI OR LO 
JSR PC, SETBRO :SET THE BRO BIT' 
ROMCLK [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100400 “START AT ROM PC=0 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
114377! <400%4> : JUMP TO ROM PC OF 1777 
JSR PC,ROMDAT iRSSEXPECTED ROM DATA,R4=ACTUAL ROM DATA 
CMP RS,R4 ARE NEW PC CONTENTS CORRECT? 
BEQ 2$ YES 
HLT 6 seRRdR, CROM PC 1S WRONG 
2$: SCOP1 [LOOP TO 1$ IF SWO9=1 
“ MOV #3$,LOCK ‘NEW SCOP1 
JSR PC, SETBRO ;SET THE BRO BIT 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100403 i START AT ROM PC=3 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
"00000: <400s4> anal TO ROM PC OF 
JSR PC ,ROMDAT 7 pres tee ROM DATA,R4=ACTUAL ROM DATA 


CMP R5,R4 SARE NEW PC CONTENTS CORRECT? 


SEQ 0064 


| nN 5 
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CRLPMB. P11 21-OCT-80 15:08 CROM JUMP TESTS SEQ 0065 
2461 024074 001401 BEQ 4$ ;BR IF YES 
2462 024076 104006 HLT 6 ERROR, CROM PC IS —— 
24635 024100 104401 4$: SCOP1 ;LOOP TO 3$ IF SwO9=1 
2464 024102 012737 024110 001220 MOV #5$,LOCK :NEW SCOP1 
2465 024110 5$: 
2466 024110 004737 026316 JSR PC, SETBRO ;SET THE BRO BIT’ 
2467 0246114 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2468 024116 100406 a oy START AT ROM PC=6 
2469 024120 104414 :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2470 024122 106125 104125: <.g0e4» ;JUMP TO ROM PC OF 52 
2471 024124 004737 026372 PC,ROMDAT RSs EXPECTED ROM DATA,R4=ACTUAL ROM DATA 
2472 024130 001252 1382 ; INDEX 
2473 024132 020504 CMP R5,R4 j ARE - ROM PC CONTENTS CORRECT? 
2474 024134 001401 BEQ 6$ YES 
2475 024136 104006 HLT 6 ‘ERROR, CROM PC IS WRONG 
2476 024140 104401 6$: SCOP1 ;LOOP To 5$ IF Sw59=1 
og lf 024142 104400 SCOPE : SCOPE THIS TEST 
2479 
2480 peeeeeeeeeeeeeerererereeeeee TEST 11 seteecannenanreenenreeeeree 
2481 3*CROM TEST OF JUMP(I) ON BR1 SET MICRO-PROCESSOR INSTRUCTION. 
2482 Z*SET THE BR1 BIT, PERFORM THE JUMP INSTRUCTION, 
2483 seVERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 
2484 RARER AAA A EAA R ARTE KERTERARAAAAAAAAA AAA A AeA ee Ae 
2485 
2486 ; vest 
2487 poorer orcceen- 
2488 024144 012737 000011 001226 TST11: MOV #11, 
2489 024152 012737 024340 001216 MOV ristis. NEXT 
2490 024160 012737 024204 001220 MOV #1$,LOCK 
2491 3R1 CONTAINS BASE M8200-YC ADDRESS 
2492 024166 104412 MSTCLR MASTER CLEAR M8200-YC 
2493 024170 032737 100000 001366 BIT #B1T15,STAT1 31S IT CRAM? 
2494 024176 001057 BNE 6$+2 SKIP TEST IF YES 
2495 024200 004737 026434 JSR PC ,MAPCK ;CHECK FOR HI OR LO 
2496 024204 i$: 
2497 024204 004737 026324 JSR PC,SETBR1 ;SET THE BR1 BIT’ 
2498 024210 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2499 024212 100400 coere START AT ROM PC=0 
2500 024214 104414 ROM :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2501 024216 116777 194377! <40085> ;JUMP TO ROM PC OF 1777 
2502 024220 004737 026372 JSR PC ,ROMDAT :R5= EXPECTED ROM DATA, R4=ACTUAL ROM DATA 
2503 024224 003776 3776 ; INDEX 
2504 024226 020504 CMP R5,R4 TARE NEW PC CONTENTS CORRECT? 
2505 024230 001401 BEQ 2$ ;BR IF YES 
2506 024232 104006 HLT 6 sERROR, CROM PC IS WRONG 
2507 024234 104401 23: SCOP 1 ;LOOP fo 1$ IF SwO9=1 
2508 024236 012737 024244 001220 MOV #3$,LOCK NEW SCOP1 
2509 024244 3$: 
2510 024244 004737 026324 JSR PC, SETBR1 ;SET THE BR1 BIT 
2511 024250 104414 ROMCLK ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2512 024252 100403 100403 ;START AT ROM PC=3 
25135 024254 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2514 024256 102400 100000!<400*5>  ; JUMP 10" ROM PC OF 0 
2515 024260 004737 026372 JSR PC ,ROMDAT R5=EXPE “TED ROM DATA,R4=ACTUAL ROM DATA 
2516 024264 000000 0 ‘INDEX 


SLAVE .MACT 
CRLPMB.P11 


WONAULSWNR—-O0en~ 


WPWN— 


oon 


2558 
2559 
60 


024336 


024340 
024346 
024354 


024362 


024454 


21-0CT-80 
020504 


012737 


004737 
104414 


104400 


012737 


604737 
104414 
100403 
104414 
103000 
004737 
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4$: 
5$: 


0243046 001220 
026324 


026372 


6$: 


000012 
024534 
024400 


001226 
001216 
001220 
100000 
026434 


026332 


001366 


026372 


2$: 
3$: 


024440 
026332 


001220 


026372 


MACY11 306(1063) 
CROM JUMP 


TSTl2: 


¢ 


CMP R5,R4 
4$ 
HLT 6 
MOV #5$,LOCK 
JSR PC, SETBR1 


ROMCLK 
104125!<400*5> 
JSR PC ,ROMDAT 


CMP R5,R4 
6$ 


B 6 
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;ARE NEW PC CONTENTS CORRECT? 
;BR IF YES 


ZERROR CROM PC 1S WRONG 
° to. 38 | sw09=1 
eS 


7SET THE BR1 BIT’ 

;NEXT WORD IS — ROMCLK PC=5304 
:START AT ROM PC=6 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; JUMP TO ROM PC OF 525 

ate EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 
;ARE NEW ROM PC CONTENTS CORRECT? 
BR IF YES 


ZERROR, CROM PC IS WRONG 
;LOOP TO 5$ IF 
:SCOPE THIS TEST 


SW59=1 


peeeeretereeeeeeeereeeeerane TEST 12 tetneeeeereeerrrererererete 


:*CROM TEST OF JUMP(I) ON BR4 SET MICRO-PROCESSOR INSTRUCTION. 


;*SET THE BR4 BIT, 


PERFORM THE JUMP INSTRUCTION, 


sevERIF THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


PRATER ATEAARAAAAAAAARAAARERARKERREKETARERAEHERHARARAAE 


:. VEST Ve 


MOV #12, TSTNO 


MOV #TST13,NEXT 


MOV #1$,LOCK 


JSR PC ,MAPCK 
JSR PC, SETBR4 


ROMCLK 
114377! <400*6> 
JSR PC,ROMDAT 


CMP R5,R4 
2$ 
HLT 6 
MOV #3$,L0CK 
JSR PC,SETBR4 


190000 !<400%6> 
JSR PC,ROMDA 


BIT #BIT15,STATI 
6$+2 


;R1 CONTAINS BASE na gr ADDRESS 
MASTER CLEAR M8200-YC 


:1S 


SKIP TEST IF YES 
:CHECK FOR HI OR LO 


;SET THE BR4 BIT’ 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;START AT ROM PC=0 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; JUMP TO ROM PC OF 1777 

‘aos EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 

TARE NEW PC CONTENTS CORRECT? 
BR IF YES 

ERROR, CROM PC IS WRONG 
:LOOP TO 1$ IF SwO9=1 

;NEW SCOP1 


;SET THE BR4 BIT' 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
: START AT ROM PC=3 

;NEXT WORD fs INSTRUCTION, ROMCLK PC=5304 


R neu TO ROM PC 


OF 
;RS=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


SEQ 0066 


LLL LLL LLL at ttt 


SLAVE .MAC1 
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024460 


024532 


024534 
024542 
024550 


024556 
024560 


024646 
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012737 
004737 


104400 


103400 


024500 001220 
026332 


026372 


000013 
024730 
024574 


001226 
001216 
001220 
100000 
026434 


026340 


001366 


026372 


024634 
026340 


001220 


MACY11 306(1063) 
CROM JUMP 


6$: 


TST13: 


1$: 


23: 
3$: 


0 

CMP R5,R4 
BEQ 4$ 
HLT 6 
SCOP 


MOV #5$,LOCK 
JSR PC,SETBR4 


Me eney 

a <400*6> 
PC ,ROMDAT 

1382 

CMP R5,R4 

BEQ 6$ 

HLT 6 

SCOP 1 

SCOPE 


C 6 
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; INDEX 
; ARE re Ay CONTENTS CORRECT? 


;ERROR, CROM PC IS WRONG 
LOOP TO 3$ IF Sw09=1 
NEW SCOP1 


;SET THE BR4 BIT’ 

:NEXT oe is — ROMCLK PC=5304 
START AT R =6 

;NEXT WORD 13, INSTRUCTION, ROMCLK PC=5304 
; JUMP TO ROM PC OF 525 

RSs EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 
;ARE NEW ROM PC CONTENTS CORRECT? 
:BR IF YES 

;ERROR, CROM PC IS WRONG 

[LOOP 70 5$ IF SW59=1 


:SCOPE THIS TEST 


peteeeeeeeeeterereeeeeererenen TEST 13 eeeeceeeneeeerrererenerener 


;*CROM TEST OF JUMP(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION. 


;*SET THE BR7 BIT, 


PERFORM THE JUMP INSTRUCTION, 


Z*VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


3 ‘ARB RRRBRARASABRRARRARARRARRRRE RR ARARAR ARRAS RR RARER RAR ARRAS AAR ADS DO | 


s Test 15 
MOV #13, TSTNO 
MOV #TST14,NEXT 


MOV #1$,LOCK 


2 
JSR PC ,MAPCK 
JSR PC,SETBR7 


100400 

ROMCLK 
114377!<400*7> 
JSR PC ,ROMDAT 
3776 

CMP R5,R4 

BEQ 2% 

HLT 6 

SCOP1 


MOV =: #3$, LOCK 
JSR PC, SETBR? 


ROMCLK 
100000! <400*7> 


#BIT15,STATI 
6$+ 


NEX 
; JUMP 10° ROM PC OF 


3R1 CONTAINS BASE we sy ADDRESS 
MASTER CLEAR M8200-YC 


IT 
:SKIP TEST IF YES 
;CHECK FOR HI OR LO 


;SET THE BR7 BIT’ 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;START AT ROM PC=0 

NEXT WORD IS pms Tee TION. ROMCLK PC=5304 


:JUMP TO ROM PC OF 1777 
;RS=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 
; ARE why CONTENTS CORRECT? 


:BR IF 

ERROR, CROM PC IS WRONG 
:LOOP TO 1$ IF SwO9=1 
:NEW SCOP 


;SET THE BR7 BIT’ 

:NEXT WORD IS nd ac ROMCLK PC=5504 
Ap AT ROM PC=3 

T WORD - INSTRUCTION, ROMCLK PC=5304 


SEQ 0067 


SLAVE .MAC1 
CRLPMB.P11 


2629 024650 
3650 


024726 


024730 
2661 024736 
024744 


024752 


004737 
0 


012737 


004737 
104414 


104400 


012737 


004737 
104414 
100403 
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026372 


024674 
026340 


026372 


900014 
025124 
024770 
100000 
026434 


026300 


026372 


025030 
026300 
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001220 


001220 


4$: 
5$: 


6$: 


TST14: 


1$: 


23: 
3$: 


dD 6 
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JSR PC,ROMDAT 
CMP R5,R4 
6$ 


MOV #S$,LOCK 
JSR PC,SETBR? 


100406 
ROMCLK 
104125!<400*7> 
SR PC ,ROMDAT 
1252 
CMP R5,R4 
BEQ 6$ 
HLT 6 
SCOP1 
SCOPE 


wa ROM DATA,R4=ACTUAL ROM DATA 
iy ves CONTENTS CORRECT? 


:BR IF 
wy CROM x I$ eae 
P tO. 9 Sw09=1 

‘NEW Scop 


;SET THE BR7 BIT’ 
NEXT WORD IS — ROMCLK PC=5304 
START AT ROM PC=6 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;JUMP TO ROM PC OF 525 
:R5S=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 
;ARE NEW ROM PC CONTENTS CORRECT? 
;BR IF YES 

sERROR, CROM PC IS WRONG 

;LOOP TO 5$ IF Sw59=1 

:SCOPE THIS TEST 


pteeeeeerereereneereeeeeeene TEST 14 eeaeaneeeeeeeererereerereese 
*CROM TEST OF JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 
s*CLEAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 

S*VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

mis CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


PRERAAAAAAAHTAAATERARAAAAAAAAAARAREReReKKEReKtAteAteetaeneeenenet 


TEST 14 


MOV #14, TSTNO 
MOV #TSTIS,NEXT 
MOV #1$,LOCK 


#B1T15,STAT1 


BNE 6$+2 
JSR PC ,MAPCK 


JSR PC, CLRALL 


ROMCLK 
114377! <400*2> 
JSR 


PC ,ROMDAT 


CMP R5,R4 
2$ 
HLT 6 
MOV #3$,LOCK 


JSR PC,CLRALL 
ROMCLK 


3R1 CONTAINS BASE M8200-YC ADDRESS 
sMASTER CLEAR M8200-YC 

;1S 1T CRAM? 

;SKIP TEST IF YES 

;CHECK FOR HI OR LO 


;CLEAR ALL CONDITIONS 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;START AT ROM PC=0 

[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;JUMP TO ROM PC OF 1777 

:RS=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


> INDEX 
7 ARE - Ay CONTENTS CORRECT? 


YE 
c ERROR, CROM PC IS WRONG 
LOOP TO . IF SwO9=1 
:NEW SCOP1 


CLEAR ALL CONDITIONS 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
7START AT ROM PC=3 


SEG 0068 


SLAVE .MAC1 


CRLPMB. 


PI 


025124 
025132 
025140 


025146 
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104414 


012737 


004737 
104414 


104400 


012737 
012737 
012737 


104412 


004737 


004737 
104414 


012737 
004737 


026372 


025070 
026300 


026372 


000015 
025320 
025164 
100000 
026434 


026300 


026372 


025224 
026300 
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001220 


001226 
001216 
001220 


001366 


001220 


4$: 
5$: 


6$: 


TST15: 


1$: 


2$: 
3$: 


Mm JUMP TEST 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100000!<400*2> ; JUMP TO ROM PC OF 
? PC ,ROMDAT = poe ROM DATA,R4=ACTUAL ROM DATA 
CMP R5,R4 ;ARE NEW PC CONTENTS CORRECT? 
BEQ 4$ :BR IF YES 
HLT 6 ;ERROR, CROM + IS WRONG 
SCOP1 [LOOP fo 3$ IF SwWO9=1 
MOV #5$,LOCK ;NEW SCOP1 
JSR PC, CLRALL CLEAR ALL CONDITIONS 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


heey START AT ROM PC=6 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
104125  <c00e2» ;JUMP TO ROM PC OF 525 
PC ,ROMDAT sRO=ER =EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


18. NDEX 

CMP R5,R4 [ARE NEW ROM PC CONTENTS CORRECT? 
BEQ 6$ ;BR IF YES 

HLT 6 ZERROR, CROM PC IS WRONG 

SCOP1 ;LOOP TO 5$ IF Sw59=1 

SCOPE SCOPE THIS TEST 


peekeeeeeeetretrrerredereeee TEST 15 xeeentaneaeeerneeeeraretees 
> *CROM TEST CF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
:*CLEAR THE Z BIT, PERFORM THE JUMP INSTRUCTION, 

s*VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

jae: CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


FRAAAAAAHARAAAAAAAAAATAAAAEREKHHKRARARRAKHeKeEReAKKeteeeeeKeteeee 


; TEST 15 


MOV #15, TSTNO 
MOV #TST16,NEXT 
MOV #1$,LOCK 
3R1 CONTAINS BASE M8200-YC ADDRESS 
MSTCLR :MASTER CLEAR M8200-YC 
BIT #B1T15,STATI :1S IT CRAM? 
BNE 6$+2 ;SKIP TEST IF YES 


JSR PC ,MAPCK ;CHECK FOR HI OR LO 


JSR PC,CLRALL CLEAR ALL CONDITIONS 

ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100400 START AT ROM PC=0 

ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
114377!<400*3> ;JUMP TO ROM PC OF 1777 

JSR PC ,ROMDAT [RS=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


; INDEX 
SARE NEW PC CONTENTS CORRECT? 


CMP R5,R4 

BEQ 2$ :BR IF YES 

HLT 6 ERROR, CROM PC IS WRONG 
SCOP 1 ae TO 1$ IF Sw09=1 
MOV #3$,LOCK :NEW SCOP1 


JSR PC, CLRALL CLEAR ALL CONDITIONS 


SEQ 0069 


SLAVE .MAC1 
CRLPMB.P11 


LCYSFSKENMG 
FN OA LOG SENOS 


025316 


025320 
025326 
025334 


025342 


025412 


21-0CT-80 
104414 


012737 
004737 


104400 


012737 
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026372 


025264 
026300 


026372 


000016 
025514 
025360 
100000 
026434 


026300 


026372 


025420 001220 
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001220 


001226 
001216 
001220 


001366 


6 
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CROM JUMP TEST 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100403 : START AT ROM PC=3 


4$: 
5$: 


6$: 


TST16: 


1$: 


ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100000!<400*3> ; JUMP TO” ROM PC OF 0 
JSR PC,ROMDAT ;RS=EXPECTED ROM DATA,R4&=ACTUAL ROM DATA 


: INDEX 
CMP R5,R4 TARE NEW PC CONTENTS CORRECT? 
BEQ 4$ ;BR IF YES 
HLT 6 TERROR, CROM PC IS WRONG 
SCOP1 ;LOOP TO 3$ IF SwO9=1 
MOV #5$,L0CK ;NEW SCOP1 
JSR PC,CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100406 START AT ROM 


PC=6 
:NEXT WCRD IS INSTRUCTION, ROMCLK PC=5304 
;JUMP TO ROM PC OF 525 
zRO=E =EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


NDEX 
; ARE NEW ROM PC CONTENTS CORRECT? 


ROMCLK 
104125!<400*3> 
= PC ,ROMDAT 


CMP R5,R4 

BEQ 6% :BR IF YES 

HLT 6 ZERROR, CROM PC IS WRONG 
SCOP1 ;LOOP TO 5$ IF SW59=1 
SCOPE ;SCOPE THIS TEST 


peeeeekereeeererereeeneeeeee TEST 16 tttateneeareneeeeenenrerete 
:*CROM TEST OF JUMP(1) ON BRO SET Saas Snes Thor tieee. INSTRUCTION. 
:*CLEAR THE BRO BIT, PERFORM THE JUMP INSTRUCTION 

;*VERIFY THAT THE JUMP DID NCT OCCUR BY READING 

Seen CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


SRA AREREAAATEAAETARARAAKAA TAKARA AA ee eee eeereeees 


: TEST 16 
MOV #16, TSTNO 
MOV #TST17, NEXT 


MOV #1$,LOCK 
;R1 CONTAINS BASE M8200-YC ADDRESS 


MSTCLR :MASTER CLEAR M8200-YC 
BIT #B1T15,STATI 31S 1T CRAM? 
BNE 6$+2 :SKIP TEST IF YES 


JSR PC ,MAPCK 
JSR PC,CLRALL 


:CHECK FOR HI OR LO 
;CLEAR ALL CONDITIONS 


ROMCLK :NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
100400 START AT ROM PC=0 

ROMCLK ZNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
114377!<400*4> ;JUMP TO ROM PC OF 1777 

‘2 PC ,ROMDAT :RS=ENPECTED ROM DATA,R4=ACTUAL ROM DATA 
CMP R5,R4 ;ARE NEW PC CONTENTS CORRECT? 

BEQ 2% :BR IF YES 

HLT 6 TERROR, CROM PC IS WRONG 

SCOP1 ;LOOP TO 1$ IF SwO9=1 


MOV #3$,L0CK ;NEW SCOP1 


SEQ 0070 


G 6 
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CRLPMB.P11 21-0CT-80 15:08 CROM JUMP TESTS SEQ 0071 
2797 + 025420 3$: 
2798 025420 004737 026300 JSR PC,CLRALL 7 CLEAR ALL CONDITIONS 
2799 025424 104414 ROMCLK sNEXT WORD IS —— ROMCLK PC=5304 
2800 025426 100403 100403 ;START AT ROM PC=3 
2801 025430 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2802 025432 102000 100000! <400*4> i TO ROM PC OF 0 
2803 025434 004737 026372 JSR PC ,ROMDAT : po pclae ROM DATA,R4=ACTUAL ROM DATA 
2804 025440 000010 10 N 
2805 025442 020504 CMP R5,R4 "ARE New PC CONTENTS CORRECT? 
2806 025444 001401 BEQ 4$ R YES 
2807 025446 104006 HLT 6 ERROR, CROM PC IS WRONG 
2808 025450 104401 4$: SCOP1 P to - IF Sw09=1 
2809 025452 012737 025460 001220 MOV #5$,LOCK Ney SCOP 
2810 025460 5$: 
2811 025460 004737 026300 JSR PC,CLRALL :CLEAR ALL CONDITIONS 
2812 025464 104414 ROMCLK [NEXT WORD IS ee ROMCLK PC=5304 
2813 025466 100406 100406 ;START AT ROM PC=6 
2814 025470 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2815 025472 106125 104125!<400*4> ; JUMP TO ROM PC OF 525 
2816 025474 004737 026372 JSR PC,ROMDAT R5= EXPECTED ROM DATA,R4=ACTUAL ROM DATA 
2817 025500 000016 16 ; INDEX 
2818 025502 020504 CMP R5,R4 SARE NEW ROM PC CONTENTS CORRECT? 
2819 025504 001401 BEQ 6$ ;BR IF YES 
2820 025506 104006 HLT 6 ERROR, CROM PC IS WRONG 
2821 025510 104401 A$: SCOP1 ;LOOP TO 5$ IF SwW59=1 
2822 025512 104400 SCOPE :SCOPE THIS TEST 
2823 
2824 
2825 peeeeeeeeeeerererereeeereeee TEST 17 teececererereneerereneetene 
2826 ;*CROM TEST OF JUMP(I1) ON BR1 SET MICRO-PROCESSOR INSTRUCTION. 
2827 :*CLEAR THE BR1 BIT, PERFORM THE JUMP INSTRUCTION, 
2828 s*VERIFY THAT THE JUMP DID NOT OCCUR BY READING 
2629 ie THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
2830 SRRRAATERAAAT EERE RTARTA AREAAAAAAAREAAAAAAA AAA AAA AAT e Ae 
2831 
seat s Vest 17 
2834 025514 012737 000017 001226 TST17: MOV #17,TSTNO 
2835 025522 012737 025710 001216 MOV #TST20,NEXT 
2836 025530 012737 025554 001220 MOV #1$,LOCK 
2837 3R1 CONTAINS BASE M8200-YC ADDRESS 
2838 025536 104412 MSTCLR sMASTER CLEAR M8200-YC 
2839 025540 032737 100000 001366 BIT #BIT15,STAT1 31S IT CRAM? 
2840 025546 001057 BNE 6$+2 : ;SKIP TEST IF YES 
2841 025550 004737 026434 JSR PC ,MAPCK sCHECK FOR HI OR LO 
2842 025554 1$: 
2843 025554 004737 026300 JSR PC,CLRALL ;CLEAR ALL CONDITIONS 
2844 025560 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2845 025562 100400 100400 START AT ROM PC=0 
2846 025564 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2847 025566 116777 114377'<400*5> 7; JUMP TO ROM PC OF 1777 
2848 025570 004737 026372 JSR PC,ROMDAT R5= EXPECTED ROM DATA,R4=ACTUAL ROM DATA 
2849 025574 000002 2 ; INDEX 
2850 025576 020504 CMP R5,R4 ‘ARE NEW PC CONTENTS CORRECT? 
2851 025600 001401 BEQ 23 7BR IF YES 


2852 025602 104006 HLT 6 [ERROR, CROM PC IS WRONG 
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CRLPMB.P11 21-0CT-80 15:08 ROM JUMP TEST SEQ 0072 
2853 025604 104401 2$: SCOP1 ;LOOP a P IF SwO9=1 
2854 0256 012737 025614 001220 MOV #3$,L0CK “NEW SCOP 
2855 025614 3$: 
2856 025614 004737 026300 JSR PC, CLRALL 7CLEAR ALL CONDITIONS 
2857 025620 104414 RCOMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2858 025622 100403 tag ;START AT ROM PC=3 
2859 0256246 104414 ROM NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2860 025626 102400 190000: <c00e5» aia TO" ROM PC OF 0 
2861 025630 004737 026372 PC ,ROMDAT R5=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 
| 2862 025634 000010 Ti > INDEX 
| 2863 025636 020504 CMP R5,R4 SARE NEW PC CONTENTS CORRECT? 
| 2864 025640 001401 BEQ 4$ :BR IF YES 
2865 025642 104006 HLT 6 ;ERROR, CROM PC IS WRONG 
2866 025644 104401 4$: SCOP1 LOOP To 3$ IF SwO09=1 
2867 025646 012737 025654 001220 MOV #5$,LOCK NEW SCOP 1 
| 2868 025654 5¢: 
2869 025654 004737 026300 JSR PC, CLRALL :CLEAR ALL CONDITIONS 
2870 025660 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2871 025662 100406 aoe :START AT ROM PC=6 
2872 025664 104414 ROM SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2873 025666 106525 194125: <400e5» :JUMP TO ROM PC OF 525 
2874 025670 004737 026372 PC ,ROMDAT R5= EXPECTED ROM DATA,R4=ACTUAL ROM DATA 
2875 025674 000016 + > INDEX 
2876 025676 020504 CMP R5,R4 SARE NEW ROM PC CONTENTS CORRECT? 
2877 025700 001401 BEQ 6$ ;BR IF YES 
2878 025702 104006 HLT 6 =ERROR, CROM PC IS WRONG 
2879 025704 104401 6$: SCOP1 ;LOOP TO 5$ IF SwW59=1 
seas 025706 104400 SCOPE ;SCOPE THIS TEST 
2882 
2883 peeeeeeeteerereeretereretenen TEST 20 eeeaaeaeeeeeeeeeeeeteeerene 
2884 + *CROM TEST OF JUMP(I) ON BR4 SET MICRO-PROCESSOR INSTRUCTION. 
2885 >*CLEAR THE BR4 BIT, PERFORM THE JUMP INSTRUCTION, 
2886 s*VERIFY THAT THE JUMP DID NOT OCCUR BY READING 
2887 Rabe: CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
2888 SRR ETAT ATA AAA R ARTA AAT AAA AAARAAAAAT ATER eee eee eet ee 
2889 
44 ; TEST 20 
2892 025710 012737 000020 001226 TST20: MOV #20,TSTNO 
2893 025716 012737 026104 001216 MOV #TST21,NEXT 
2894 025724 012737 025750 001220 MOV #1$,LOCK 
2895 7R1 CONTAINS BASE M8200-YC ADDRESS 
2896 025732 104412 MSTCLR 7MASTER CLEAR M8200-YC 
2897 025734 032737 100000 001366 BIT #BIT15,STATI 31S IT CRAM? 
2898 025742 001057 BNE 6$+2 sSKIP TEST IF YES 
2899 025744 004737 026434 JSR PC ,MAPCK ;CHECK FOR HI OR LO 
2900 025750 1$: 
2901 025750 004737 026300 JSR PC,CLRALL CLEAR ALL CONDITIONS 
2902 025754 104414 ROMCLK NEXT WORD IS +p al eae ROMCLK PC=5304 
2903 025756 100400 100400 >START AT ROM PC=0 
2904 025760 104414 ROMCLK [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2905 025762 117377 114377! <400*6> ;JUMP TO ROM PC OF 1777 
2906 025764 006737 026372 JSR PC,ROMDAT RS5= EXPECTED ROM DATA,R4=ACTUAL ROM DAIA 


| 2 ; INDEX 
2908 025772 020504 CMP R5,R4 SARE NEW PC CONTENTS CORRECT? 
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026104 
026112 
026120 


026126 


026160 
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001401 


012737 
004737 


012737 
004737 


104400 


004737 


026010 
026300 


026372 


026050 
026300 


026372 


000021 
003374 
026144 
100000 
026434 


026300 


026372 


MACY11 306(1063) 


001220 


001220 


001226 
001216 
001220 


001366 


1 6 
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CROM JUMP TESTS 


4$: 
5$: 


6$: 


TST21: 


BEQ 2$ ;BR IF YES 

HLT 6 ERROR, CROM PC IS WRONG 

SCOP1 [LOOP TO 1$ IF SwWO9=1 

MOV #3$,LO0CK :NEW SCOP1 

JSR PC,CLRALL ;CLEAR ALL CONDITIONS 

ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100403 ;START AT ROM PC=3 


ROMCLK [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
> pate a ; SUMP TO ROM PC OF 


+3 PC,ROMDAT a ages ROM DATA,R4=ACTUAL ROM DATA 
CMP R5,R4 ZARE NEW PC CONTENTS CORRECT? 

BEQ 4$ BR IF YES 

HLT 6 ;ERROR, CROM + 1S WRONG 

SCOP1 ;LOOP TO 3$ IF SwO9=1 

MOV #5$,LOCK ;NEW SCOP1 


JSR PC,CLRALL ;CLEAR ALL CONDITIONS 

ROMCLK =NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100406 START AT ROM PC=6 

ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
104125 !<400*6> ; JUMP TO ROM PC OF 525 

JSR PC ,ROMDAT :RS=EX =EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


16 NDEX 

CMP R5,R4 TARE NEW ROM PC CONTENTS CORRECT? 
BEQ 6$ ;BR IF YES 

HLT 6 :ERROR, CROM PC 1S WRONG 

SCOP1 ;LOOP TO 5$ IF Sw59=1 

SCOPE ;SCOPE THIS TEST 


peteeeeeteeeteeetrerrerrenee TEST 21 RARER eee 
> *CROM TEST OF JUMP(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION. 
:*CLEAR THE BR7 BIT, PERFORM THE JUMP iNSTRUCTION, 

s*VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

hen CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


PRAHA AATAAARAAAAAERAAAAKAAERAAEAARRAAAeAeAHRKEAAKAKA AAAs 


3; TEST 21 
MOV #21, TSTNO 
MOV #.EOP,NEXT 


MOV #1$,LOCK 
7R1 CONTAINS BASE M8200-YC ADDRESS 


MSTCLR sMASTER CLEAR M8200-YC 
BIT #BIT15,STATI :1S 1T CRAM? 
BNE 6$+2 SKIP TEST IF YES 


JSR PC ,MAPCK ;CHECK FOR HI OR LO 


JSR PC,CLRALL ;CLEAR ALL CONDITIONS 

ROMCLK [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100400 START AT ROM PC=0 

[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;JUMP TO ROM PC OF 1777 

[R5S=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 


ROMCLK 
114377! <400*7> 
JSR PC ,ROMDAT 


SEQ 0073 


J 6 
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CRLPMB.P11 21-OCT-80 15:08 CROM JUMP TESTS SEQ 0074 
2965 026164 000002 2 ; INDEX 
2966 026166 020504 CMP R5,R4 SARE NEW PC CONTENTS CORRECT? 
2967 026170 001401 BEQ 2s ;BR IF YES 
968 026172 104006 HLT 6 ERROR, CROM PC IS WRONG 
2969 026174 104401 2$: SCOP1 ;LOOP To - IF SwO9=1 
2970 026176 012737 0262046 001220 MOV #3$,LOCK “NEW SCOP1 
2971 026204 3$: 
| 2972 026204 004737 026300 JSR PC, CLRALL CLEAR ALL CONDITIONS 
| 2973 026210 104414 ROMCLK “NEXT WORD 1s {NS TRUCT ION, ROMCLK PC=5304 
«2974 026212 100403 eee ; START AT ROM PC=3 
| 2975 926214 104414 ROM :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
| 2976 026216 103400 190000!<600¢7> © nee 12 ROM PC OF 0 
2977 026220 004737 026372 JSR PC ,ROMD :RS=EXPECTED ROM DATA,RG=ACTUAL ROM DATA 
2978 026224 000010 10 ; INDEX 
2979 026226 020504 CMP RS,R4 :ARE neu PC CONTENTS CORRECT? 
2980 026230 001401 BEQ 4$ ; YES 
2981 026232 104006 HLT 6 ERROR, CROM PC IS WRONG 
2982 026234 104401 4$: SCOP1 ‘LOOP TO 3$ IF SwO9=1 
2983 026236 012737 026244 001220 MOV #5$,LOCK NEW SCOP1 
2984 026244 5$: 
2985 026244 004737 026300 JSR PC,CLRALL ;CLEAR ALL CONDITIONS 
2985 026250 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2987 026252 100406 100406 :START AT ROM PC=6 
2988 026254 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2989 026256 107525 104125!<400*7> ; JUMP TO ROM PC OF 525 
2990 026260 004737 026372 JSR PC,ROMDAT [RS=EXPECTED ROM DATA,R4=ACTUAL ROM DATA 
2991 026264 000016 16 3 INDEX 
2992 026266 020504 CMP R5,R4 ; ARE NEW ROM PC CONTENTS CORRECT? 
2993 026270 001401 BEQ 6$ R IF YES 
2994 026272 104006 HLT 6 :ERROR, CROM PC IS WRONG 
2995 026274 104401 6$: SCOP1 ;LOOP To 5$ IF SwWw59=1 
2996 026276 104400 SCOPE =SCOPE THIS TEST 
2997 
2998 
2999 ; SUBROUTINES 
3000 preeorccce-- 
3001 
3002 026300 CLRALL: 
$003 THIS SUBROUTINE CLEARS THE C&Z BITS AND THE BR 
3005 026300 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
026302 000400 000400 ‘BR 
3007 026304 104414 ROMCLK iNERT WORD IS INSTRUCTION, ROMCLK PC=5304 
026306 063220 063220 7SP(0)_BR 
3009 026310 104414 ROMCLK NEXT GORD IS INSTRUCTION, ROMCLK PC=5304 
3010 026312 060400 060400 ;BR_SP(0)+BR 
3011 026314 000207 RTS PC 
3012 
3013 
3014 026316 SETBRO: 
4 : THIS SUBROUTINE SETS BRO BIT 
3017 026316 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3018 026320 000401 000401 ;BR_001 
| 026322 000207 RTS PC 


Ww 
oo 
hme— 
ow 
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026324 


026324 
026326 
026330 


104414 
000402 
000207 


026332 


026332 
026334 
026336 


104414 
000420 
000207 


026340 


026340 
026342 
026344 


104414 
000600 
000207 


026346 
026346 104414 
026362 000207 
026364 


026364 
026366 
026370 


104414 
000777 
000207 


026372 


026372 


21-0CT-80 15:08 


000000 


2 
000020 
012400 


MACY11 gl a 


152562 


SUBROUT 


SETBR1: 


SETBR4: 


SETBR7: 


SETC: 


SETZ: 


ROMDAT : 


K 6 
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THIS SUBROUTINE SETS BR1 BIT 


ROMCLK 
000402 
RTS 


PC 


;NEXT WORD IS 
;BR_002 


;THIS SUBROUTINE SETS BR4 BIT 


ROMCLK 
000420 
RTS 


PC 


NEXT WORD IS 
;BR_020 


THIS SUBROUTINE SE1S BR? BIT 


ROMCLK 
000600 
RTS 


PC 


NEXT WORD IS 
;BR_200 


; THIS SUBROUTINE SETS THE C BIT 


ROMCLK 
000777 


PC 


NEXT WORD IS 
3BR_377 
NEXT WORD IS 


:SP(0)_BR 
“NEXT GORD IS 
;BR_SP(0)+BR 


THIS SUBROUTINE SETS THE Z BIT 


ROMCLK 
000777 
RTS 


PC 


NEXT WORD IS 
;BR_377 


INSTRUCTION, 


INSTRUCTION, 


INSTRUCTION, 


INSTRUCTION, 
INSTRUCTION, 
INSTRUCTION, 


INSTRUCTION, 


ROMCLK 


ROMCLK 


ROMCLK 


ROMCLK 
ROMCLK 
ROMCLK 


ROMCLK 


;THIS SUBROUTINE LOADS R5 WITH EXPECTED ROM CONTENTS 


[AND LOADS R4 WITH ACTUAL ROM CONTENTS 
; INDEX FOR COMPARE 


a(SsP),RO 

#2, (SP) 
#B1T10,(R1) 
VSMAP(RO) ,R5S 
#BIT4,aSuR 


1$ 
V4MAP (RO) RS 


ADJUST STACK 
;SET ROMO 


:PUT EXPECTED IN RS (VERSION 5) 
;TEST IF V4 rs ae ae 
:BR IF VS MICRO-C 

;PUT EXPECTED IN RS (VERSION 4) 


PC=5304 


PC=5304 


PC=5304 


PC=5304 
PC=5304 
PC=5304 


PC=5304 


SEQ 0075 
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C 
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3077 026426 
3078 026432 


3080 026434 


Ww 
oO 
co 
Ww 


84 
3085 026434 
86 


88 2 
3089 026460 
3091 026462 


026622 


026661 
026702 


027140 
027163 


027416 


027500 


0 
027542 


016104 
000207 


012737 


000207 
020200 

200 
033600 
046600 


050114 
027500 


000003 
006 
001264 
006 
001270 
004 
001260 
000003 
006 
001272 
001270 
004 
001264 
000003 
006 
001272 
006 


000006 


016402 
000020 


012400 


020040 


0475 


026501 


004 
004 
002 


004 
004 
002 


004 
004 


MACY11 


012376 
152532 


012376 


051124 
042520 


046440 
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6(R1),R4 ;PUT ‘FOUND’ IN R4 
PC ETURN 


;THIS SUBROUTINE CHECKS THE STATUS TABLE AND LOADS 
;THE ROMMAP POINTER TO POINT TO EITHER THE HIGH OR 
;LOW SPEED MICRO-CODE. 


306(1063) 
SUBROUTINES 
1$: MOV 

RTS 
MAPCK: 
MOV 
BIT 
BEQ 
MOV 
1$: RTS 
MESWCH: .ASCII 
ASCII 
ASCII 
-ASCIZ 
EM1: -ASCIZ 
EM2: -ASCIZ 
EM3: -ASCIZ 
EMA: -ASCIZ 
EMS: -ASCIZ 
FM7: ASCIZ 
—M10 ASCIZ 
—M11 -ASCIZ 
—EM12 -ASC1Z 
—EM13 -ASCIZ 
DH1: ASCIZ 
DH2: ASCIZ 
DH3: ASCIZ 
ROM1 ASCII 
ASCII 
-ASCIZ 
EVEN 
DT1: 
-BYTE 
SAVR2 
BYTE 
SAVR4 
-BYTE 
SAVRO 
DT2: 
BYTE 
SAVRS 
BYTE 
SAVR4 
BYTE 
SAVR2 
DT3: 
SAVR5S 


#V5MAP ,ROMMAP LOAD POINTER TO V5 ey 


#B1T4 ,aSWR CHECK SWITCH ta BIT 4 

1$ R IF V5 MICRO-CODE 

#VGMAP ,ROMMAP :LOAD POINTER TO V5 MICRO-CODE 
PC : RETURN 


<200># NOTE :# 

<200>#FOR THIS PROGRAM TO RUN PROPERLY, SWITCH# 
<200>#7, OF THE VECTOR ADDRESS SWITCH PACK (E76) ,# 
<200>#MUST BE ON. (M8200-YC BOARD) #<200> 


<377>/CRAM DATA ERROR/ 

<377>/CRAM DUAL ADDRESSING ERROR/ 
<377>/CROM DATA ERROR/ 

<377>/ JUMP ERROR/ 

<377>/ODT ERROR IN IBUS* REGI0/ 
<377>/10P MAR TEST/ 

<377>/BR RIGHT SHIFT TEST/ 
<377>/RECELVE DATA ERROR/ 
<377>/FREE RUNNING ERROR/ 
<377>/CONTROL OUT ERROR/ 


<377>/EXPECTED FOUND ADDRESS/ 

<377>/EXPECTED FOUND/ 

<377>/ SEL4 SEL6/ 

<377><12>/CRLPM-B SUPPORTS THE FOLLOWING CROM VERSIONS :/<200> 
/LPA- M8200-YC VERSION 5 MICRO CODE IF SWR = 0/<200> 

/LPA- MB200-YC VERSION 4 MICRO CODE IF SWR = 20/<200> 


6,4 
6,4 
4,2 


6,4 
6,4 
4,2 


6,4 
6,4 


SEQ 0076 


SLAVE.MA 


M 6 
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CRLPMB.P11 21-OCT-80 15:08 SUBROUTINES SEQ 0077 
027544 001270 SAVR4 
027546 004 002 .BYTE 4,2 
027550 001252 TEMPS 
027552 000002 DT4: - 2 
027554 003 007 .BYTE 3,7 
027556 001272 SAVRS 
027560 003 002 .BYTE 3,2 
027562 001270 SAVR4 
| 027564 000002 DTS: 2 
027566 006 004 .BYTE 6,4 
027570 001272 . SAVRS 
027572 006 002 .BYTE 6,2 
027574 001270 SAVR4 
027576 000003 DT7: z 
027600 003 010 .BYTE 3,10 
027602 001272 SAVRS 
027604 003 004 .BYTE 3,4 
027606 001270 SAVR4 
027610 004 002 .BYTE 4,2 
027612 001264 SAVR2 
027614 000003 p110: 3 
027616 003 007 .BYTE 3,7 
027620 001272 SAVRS 
027622 003 004 .BYTE 3,4 
027624 001270 SAVR4 
027626 006 002 -BYTE 6,2 
027630 001252 TEMP3 
027632 000002 D111: 2 
027634 006 004 -BYTE 6,4 
027636 001252 TEMP3 
027640 006 002 .BYTE 6,2 
027642 001254 TEMPS 
027644 JERRTAB: 
027644 000000 0 
027646 000000 0 
027650 000000 0 
027652 026661 EM1 
027654 027163 DH1 ZHLT 1 
027656 027500 p11 
027660 026702 EM2 
027662 027163 DH1 HLT 2 
027500 oT1 
027666 026661 EM1 
027670 027163 DH1 SHLT 3 
027672 027516 DT2 
| 027674 026736 EM3 
027676 027163 DH1 HLT 4 
027700 027534 DT3 
027702 026757 EMG 
027704 027215 DH2 ZHLT 5 
027706 027552 DT4 
027710 026757 EMG 
027712 027215 DH2 SHLT 6 
027714 027564 015 


SLAVE .MACI 
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| 
| 


027720 


027774 


027776 
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027215 


027632 


000001 
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SUBROUTINES 


CORMAX : 
-END 


sHLT 


7 


11 


12 


13 


14 


15 


16 


SEQ 0078 


ane Se : "an 
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CRLPMB.PT1 © 21-OCT-80 15:08 ROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0079 
[ADRCNT= 004403 876 912" = «92H 
/AUDONE 003034 66 605 610 656 
AUSTRT 002456 5658 
AUTO.S 010556 23 13654 
BINWRD 004724 962* 965" 966 10034 
BITO = 000001 95# 1152 1153 
BIT! = 000002 948 8B 1146 1152 1153 1648 1534-1547 
BIT10 = 002000 85¢ 61515 = 1526 = 2092, 21733072 
BiT11 = 004000 Bae 
BITI2 = 010000 B3# 1463-1545 
BIT13 = 020000 82" 1466 1518 + = 15492095 
BIT14 = 040000 Bi# = 778-=— 1477S «s1479—S «1549-1560 
BIT15 = 100000 80" 480 569 (572 593 (596 1450 1521 2088 2161 2211 2268 2322 
2379 2436 = 2493 = 2550 «= 2607 «= 2665S 2723S 2781 «= 2839S 2897 2955 
BIT2 = 000004 93# 528 = 709 «*1153 
BIT3 = 000010 92v 1551 =: 1558 
BIT4 = 000020 91# 1136 «= 1159S «1161S «3074 = 3086 
BITS = 000040 904 1663 
BIT6 = 000100 89H 1141 «1142, «1553 
BIT? = 000200 884 1142 1262 =: 1663 
BIT8 = 000400 87H 1525 1540 «1542, 1555. «1557 «1563 1566 1624 
BIT9 = 001000 Bo# «61523 «= 1525. «1537 = «1563 1566 = 1622—Ss«(16 24 
aM 007101 11844 = 1491 
BRLVL 012330 1619 1629 16371649 
003740 715 801" 
BRX 003742 716 = 802 
BUF1 012400 G 16734 
CHRCNT 004722 960* 963 967 (983% 1001" 1002 
CKSWR 007652 509 776 «808 §= 1023S s«12098 
CKSWR1 007732 1222" © 1234 
CKSWR2 007744 12258 
CKSWR3 007750 12278 
CkSWk4 007754 1228# 1236 «= 1243 
CKSWRS 010060 1210 1217-12520 
CLKX 001242 1718 
CLRALL 026300 2215 2228_:~=— 2241 2669 «= 2682) 2695 = 2727 2740 = 2753. 2785 = 2798 = 2811 B43 
2856 = 2869. 2901. 2914 = 2927 = 2959-2972) 2985 30028 
CNERR 007327 623 1184" 
CNT.MA 001702 196 -364# 479 481 483.1290 
CNVRT = 104411 2388 «662007350787 739s MAN S10S7? = «1059-1919 —s:1225 
CONERR 007250 618 = 1184s 
CONN = 007141 1184" 1468 
CONTAB 003006 627 6404 
CONVRT= 104410 2318 540 626 1073 =—«1388 
CORMAX 027776 30914 
CRAM 11848 © 1429 
CREAM 001320 1958 = 47B* = :1286* = 1287-1289 = 1293 
CSR 00653 11844 ©1392 
CSRMAP 010560 13678 
CYCLE 010124 717758759 —s«12778 
DATABP 005226 1046* 1049 1071 = 10748 
DATACL= 104415 2418 
DATAHD 005214 1045* 1067 10708 
DELAY = 104413 2378 
DEVADR 004400 874e 909 9198 


DEVTAB 003020 580 6454 


SLAVE .MAC1 
CRLPMB.P11 21-0CT-80 15:08 
DH1 027163 30918 
DHe 027215 30918 
DH3 027236 30914 
DISPLA 001200 1428 
DISPRE 900174 1284 
DMACTV 001306 1894 
DMCA 07350 631 
DMCROO 001500 2798 
DMCRO1 001510 2844 
DMCRO2 001520 2898 
DMCRO3 001530 2948 
DMCROS 001540 2998 
DMCROS 001550 3044 
DMCRO6 001560 3094 
DMCRO7 001570 3144 
DMCR1IO 001600 3198 
DMCR11 001610 3248 
DMCRI2 001620 3298 
DMCR13 001630 3348 
DMCR14 001640 339" 
DMCR15 001650 3448 
DMCRI6 001660 3498 
DMCRI7 001670 3548 
DMCSR 001404 ieee 
DMCSRH 001406 2634 
DMCTL 001410 2644 
DMNUM 001310 1904 
DMPOS = 001412 2654 
DMPO6 = 001414 2668 
DMRLVL 001376 2598 
DMRVEC 001374 258m 
DMS1U0 001502 2804 
DMS101 001512 2854 
DMS102 001522 2908 
DMS103 001532 2954 
DMS104 001542 3004 
DMS105 001552 3054 
DMS106 001562 3104 
DMS107 001572 3154 
DMS110 001602 3208 
DMS111 001612 3258 
DMS112 001622 3304 
DMS113 001632 335a 
DMS114 001642 3404 
DMS115 001652 345e 
DMS116 001662 3504 
DMS117 001672 3554 
DMS200 001504 2814 
DMS201 001514 2864 
DMS202 001524 29l# 
DMS203 001534 2964 
MS204 001544 3014 
DMS205 001554 3064 
DMS206 001564 3114 
DMS207 001574 316# 


MACY11 * 
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499* 
673* 


SEQ 0080 


1304 


| 
} 
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‘DMS210 


ERCT10 


001744 
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1317" = 1318* 

1315* 1316* 1317 

1369 

2788 478 533 543 659 1287 1289 1367 
783* 8034 1213+ 


1372 


1607 


SEQ 0081 


i 
SEE 


SLAVE .MAC1 
CRLPMB.P 


ERCT11 


11 
001750 


004402 
001220 


001326 


026434 


001244 
06153 


006155 
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742 


612 


1285* 


1400 
1469 


1053 

2407+ 
2662+ 
2912+ 


1033* 
2324 


1060 


1290+ 


1047 


1481 
1657# 


2158+ 
2433* 
2680+ 
2925% 


11844 


1294 


7. 
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1061* 


1490 


1120* 


2226* 
2464* 
2720+ 
2970* 


2495 


1387 


2239* 
2490* 
2738+ 
2983+ 


2552 


2609 


2282* 
2521* 
2778 


2667 


2294+ 
2547+ 
2796+ 


2725 


SEQ 0082 


2783 


SLAVE .MAC1 
CRLPMB.P11 = 21-OCT-80 15:08 
moDU 006731 11848 
MPASSX 006117 738 
MPFAIL 005705 1118 
MQM 05676 858 
MR 005766 720 
MRESET= 004000 96" 
IMSTCLR= 104412 2354 
2722 
MTITLE 001000 1364 
MTSTN 006141 1056 
MTSTPC 006042 11844 
MVECK 006111 736 
NEXT 001216 15748 
2603* 
NOACT 007201 520 
NODEV 002704 574 
NUM 006472 11844 
OK 002656 600 
ONE 001302 1874 
PACTOO 001702 3654 
PACTO1 001706 3684 
PACTO2 001712 3714 
PACTOS 001716 3748 
PACTO4 001722 3774 
PACTOS 001726 3804 
PACTO6 001732 3834 
PACTO7? 001736 3864 
PACT10 001742 389" 
PACT11 001746 3924 
PACT12 001752 3958 
PACT13 001756 3984 
PACT14 001762 4014 
PACT15 001766 404# 
PACT16 001772 407# 
PACT17 001776 410# 
PARAM = 104405 2254 
PARAM! 004244 8784 
PARBIT= 040000 964" 
PARERR 004320 881 
PASCNT 001230 1624 
PERFOR= 004537 96" 
PFTAB 005440 1119 
POPRO = 012600 724 
POP1SP= 005726 70# 
POP2SP= 022626 74a 
PRIO © 006574 11844 
PS = 177776 634 
PUSHRO= 010046 714 
PUSH1S= 005746 694 
PUSH2S= 024646 738 
QV.FLG 001327 2044 
RESREG 005230 1072 
RESTAR 005360 1105 
RESTRT 003544 746 
RESOS = 104407 2298 
RETURN 001214 1564 


—_— 
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1349 
1343 


2114 
2838 
1327 


1089 
27198 
1279 


636 


1380 


885 
732 


708* 


747* 


7584 
717* 


1424 1436 1446 


2160 2210 2267 
2896 2954 

2085" 2112" 21578 

2777 2835+ 2893 


1393 1402 1483 


894m 901 903 
743 768 1301+ 


1619* 1629+ 


787 


721 758¢ 796* 


ROSS REFERENCE TABLE -= USER SYMBOLS 


1461 1475 


2321 2378 2435 


1492 


905 


800 1089* 1092 


O7* 2264* 23188 
51* 


2492 2549 


2375* 2432 


1124 13428 


2606 


24898 


1352¢ 


SEQ 0083 


2664 


25468 


1354 
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CRLPMB.P11 21-OCT-80 15:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0084 


ROMCLK= 104414 239" «8611311136977, 1176— 2199-2121 2123) 2131) 2133 2171S 2216 = 2218 
2229. 2231S 2242 2244 «= 2272S 2274 2284) 2286) 2296 «= 2298 = 2327 = 2329 2340 
2342 2353. 2355. 2384) 2386 2397 2399 2410 2412 hkl «= 2443 2454 2456 
2467 «= 246692498 = 2500) 2511S 2518 25240 2526 = 2555 2557 = 2568 ~=— 2570 2581 
2583 2612-2614 = 2625S 0627 «= 2638 = 2640 = 2670» 2672S 2683 2685 = 2696) 2698 
2728 «= 9730-2741 = 2743S 2754 = 2756 = 2786) = 2788 = 2799-2801) 2812 814 BAA 
2846 © ¢857— «2859s: B70 = B72. 2902S 2906 «= 2915 2917 2928 )=— 2930) 2960) 2962 
2973 2975 298629885005 3007 «= 3009-S« 3017S 3025S: 3033 = 3041 = 3049 = 3051 
ROMDAT 026372 2220 2233S 2246 = 2276 = 2288 «= 2300 «= 2331 = 2344 2 2357 = 2388 = 2401 1h = 2445 
2458 2471 «= 25022515. 2528 = 2559s 2572-2585 = 2616 «= 2629 642 2674 2687 
2700 2732 27465 2758 2790 2803 2816 2848 2861 2876 2906 2919 2932 
2964 2977 2990 3066s 
-ROMMAP 012376 16674 2091 2165. = 3085" «= 3088s 
ROM 027257 507 30914 
RUN 001316 193# = 4B0® «=«1283* = 1284" = 1291 
SAVACT 001312 191# §=668 ~——-1590s 
SAVNUM 001314 1928 G74e 745 = 748 15838 
SAVPC 001276 1854 «619 6 926* 1096 
SAVRO 001260 1784 = 935* «= 940=— 3091 
SAVR1 001262 1798 625" 934 941 
SAVR2 001264 180# «933 = 942-3091 
SAVR3 001266 1818 932e 943 
SAVR4 001270 1828 ©6931" «= 944.309 
SAVRS 001272 1834 = 930" «= 945-3091 
SAVSP 001274 1848 
SAVOS = 104406 227# ©1035 
SCOPE = 104400 215#@ 2100 «2140» 2194 = 2252S 2306 = 2363 2420 2477) 2534 = 2591 = 2648 = 2706 
2764 2822 2880 2938 2996 ' 
|SCOP1 = 104401 217 ©2185 =. 2225S «2238 = 2251 = 2281 «= 2293 = 2305S 2336 = 2349 = 2362 2393 406 
2419 2450 «2463. 24762507 = 2520 2533 2564 = 2577 = 2590) 2621 684 ba? 
2679 2692 + 2705-~=S «2737s 2750) 2632795) = 2808 «= 2821S 2853 2866 = 879 2911 
2924 2937 2969 2982 2995 
SETBRO 026316 2440 2453 2466 30148 
SETBR1 026324 2497 2530 «= 2523S 30228 
SETBR4 026332 2554 2567 2580 3030s 
SETBR7 026340 2611 2624 «= 2637s 30384 
SETC 026346 2326 «=. 2339S 2352-3046 m 
SETZ 026364 2383 = 2396 «= 2409S 3058 
SKIP 002642 570 573s 9G 597 6034 
SOFTSW 010116 1226 1265 
SPACNT= 004723 961" 985 988"  1002# 
SPEED 007376 11848 © 1439 
STACK = 001200 644 472 687 1090 1113 
STAT 001240 1708 
| star 001366 251# 1298 2088 2161 2211 2268 2322 2379 2436 2693 2550 2607 2665 
2723. 2781 = 2839S 2897 2955 
/STAT2 001370 252" ©1299 
STATS 001372 2534 ©1300« 
| STRTSW 001236 ieee 510e 5138514 m  t% 32. 709s 718.-—« 1320 13KKe 137% 
/$v0S 004412 930" 
SWFLG 010062 475* 822 1221* + «124B® ~=—-12548 
| SWMES 007232 11844 1224 
| SWMES1 007242 1184# ©1227 
SwR 001202 1638692" 494i(iB®CC«*STOC«‘iBCSsC(‘<i«é‘«‘i ZOCOR B09s«iBZHsti«éiNZH_Ss«é1029 
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1078 1085 1087 1149 1209 1267* 3074 3086 

SWREG 000176 1298 §=©498 = 1209S: 1267 

Sw0O = 000001 45#@ 514 «1374 —s«1603 

$w01 = 000002 48 = 718 «= 1320 1344 

SwO2 = 000004 43a 

$w03 = 000010 42e = 663 

'$w04 = 000020 41a 

SwOS = 000040 4O# 

$w06 = 000100 39" = 1149 

sw07 = 000200 38H 

sw08 = 000400 37" = 1085 

Sw09 = 001000 36" = B09 

Sw10 = 002000 35¢ 1087 

/Sw11 = 004000 34a 

SWi2 = 010000 33" 0B 1024 

Sw13 = 020000 32" ©1029 

SW14 = 040000 18 

SW15 = 100000 30" 

TEMP = 001416 2714 «= 968 = s1115* = «-1116* = 1157* = 1162" = 1168* =: 1180# 

TEMP? 001246 1734 = -534* «61186 = 1615* =: 16 16 

TEMP2 001250 174" = 535" 1188 

TEMPS 001252 BIE 33 563* 615 624 1190 1383 1386 1502* 2178* 2180" 2181* 2182 
* 

TEMP4 001254 1764 = 538* 1192 1396 1399 1405 1408 1686 14689 1495 1498 3091 

TEMPS 001256 177# = 5539 = 1194 :1377* ~=1390* ~=—-1601 

TIMER = 104416 2434 

TKCSR 001204 1488 845 1211 1256 1657 

TKDBR 001206 1498 8 853.1214 ~=S «1216 ~=S«1258)~—Ss«21659 

TLAST = 026104 1347 29974 

TPCSR 001210 150" 829 851 1026 1259 1660 

TPDBR 001212 15i# = B31* = B53* «= 1028* += 1261" ~=—« 166 2* 

TRPOK 004740 10144 

TSTNU 001226 161# 486" 1099 1127 1331 1338 1340 2084 2111* 2156% 2206*  2263* 2317 

2374" 2431 2488 2545" 2602*  2660* 2718* 2776* 2834% 2892 29508 

TST! 022404 1334 1352 20848 

TST10 023750 2375 24318 

TST11 024144 2432 «24884 

TST12 024340 2489 25454 

TST13 024534 2546 © 2602 

TST14 024730 2603 26604 

TST15 625124 2661 27184 

TST16 025320 2719 2776 

TST17 025514 2777 «= 2B 348 

TST2 022476 2085 21114 

TST20 025710 2835 28924 

TST21 026104 2893 2950" 2997 

TST22 = eevee Y 295 

TST3 022610 21122156" 

TST4 023004 2157 2206" 

TSTS 023200 2207 «= 22638 

TST6 =: 023360 2264 23178 

TST? 023554 2318 «= 2374 

TTST 003622 712* 397138 «= 715* = 716% = 7798 

TWOSYN= 010000 96" 

TYPDAT 005216 1050 1068 = 10714 

TYPE = 104402 2198 = 506 507 508 520 532 617 622 630 633 665 670 711 


7 
SLAVE .MAC1 MACY11 306(1063) 24-OCT-80 09:23 T PAGE 72 
CRLPMB.P11 21-OCT-80 15:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0086 


720 733 734 736 738 740 828 841 858 951 991 1051 1052 
| 1055 1056 1058 1060 1064 1069 1118 1224 1227 1279 1325 1343 1349 
1387 1409 1423 1428 1435 1438 1445 1451 1460 1467 1474 1592 
‘TYPMSG 005116 1048 10514 
VEC 006553 11844 1401 
VECMAP 012066 1591 16034 
V4MAP 012400 16694 3076 3088 
VSMAP 016402 16814 3073 3085 
WHICH 012060 1389 15998 
WRDCNT 004720 959* 992* 10004 
WRKO.F 005204 1063 10664 
XBX 005010 1025 1027 10294 
XCSR 003556 735 7604 
XERR 003600 741 7694 
XHEAD 006240 532 11844 
XLOC 003032 590* 608* 611 642 6554 
XPASS 003572 739 7664 
XSTATQ 007520 541 11844 
XTSTN 005340 1057 10974 
XVEC 003564 737 7634 
ZERO 001300 1864 
$COD = xeeeee 
SCRAP = 177777 14 20708 2073 20804 21018 2104 21078 21418 2144 21524 21954 2198 22028 
22534 2256 2259H 23074 2310 23138 23644 2367 2370# 24218 2424 24278 «24788 
2481 24844 25354 2538 25418 25928 2595 25984 26498 2652 26564 270784 2710 
27144 27654 2768 2772 =—2823% =—. 2B 26 28304 28814 2884 28884 29398 2942 29468 
SENDAD 003532 123 504 7524 #81076 
$N = 000021 14 2070 2080 2082 20874 2101 2107 2109 21148 2141 2152 2154 2160 
21614 2195 22 2204 2210 22118 2253 2259 2261 2267 22684 2307 2313 
2315 2321 23224 862364 2370 2372 2378 23798 2421 2427 29 2435 24368 
2478 2484 2486 2492 24938 2535 2541 2543 2549 25504 2592 2598 2600 
2606 26074 2649 2656 2658 2664 26654 2707 2714 2716 2722 27258 §8 2765 
2772 2774 2780 27814 2823 2830 2832 2838 28394 2881 2888 2890 2896 
2897# 2939 2946 2948 2954 29554 29978 : 
= 000023 14 2085 2087# 2112 21144 2157 21614 2207 22114 2264 22684 2318 23228 
2375 2379# 2432 24364 2489 24938 2546 25504 2603 26074 661 26654 2719 
27234 =2777 27814 2835 2839# 2893 28978 2951 29554 
$Y = 000017 a 2074 215 21784 2194 2214 2234 2254 2278 2298 2318 2334 2354 
| 2378 2394 2414 2434 2458 
= 027776 1084 109 1124 1194 1244 12784 1314 1354 1378 1894 1904 1918 1928 
272 2774 2798 2804 2818 2828 2844 2854 2864 2878 2894 2904 29" 
2928 2948 2954 2968 2978 2998 3004 3014 3024 304% 3054 3068 3078 
3094 3104 3114 3128 3148 3154 3164 3174 3198 3204 3218 3228 3248 
3254 3264 3274 329" 3308 3314 332" 3348 3354 3368 33748 3398 3408 
3414 3428 3448 3454 3468 3478 3494 3504 354 3528 3548 355a 3568 
| 3574 1 2 6544 672 1107 1117 11654 1200 12024 # 1257 1260 128) 
1375 1419 1544 1548 1595 1626 1658 1661 3091" 
| .BEGIN 003162 6874 
CNVRT 004502 234 9528 
CONVR 004476 232 9514 
DATAC 005562 242 11564 
DELAY 005446 8 11294 
. 003374 7284 51 
ERRTA 027644 1043 30914 
HLT 004760 10234 


| HL 115 
INSTE 004164 224 858" 
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- INSTR 004060 222 8378 
-INST1 004100 841" 861 
MSG 004102 839 8428 
MSTCL 005476 6 11408 
«PARAM 004204 226 8694 
-PFAIL 005346 113 473 1104# 1112 
RESOS 004444 230 9404 


487 1244 


“” 

“ 

aa 

z 

~ 

So 

oO 

Nm 

oS 

Oo 

nN 
Mon fm —Prnrn 
RS FWA ean 
OFNSENMOCWO 

= 

N 

— 

te 


“TYPE 003776 


SLAVE .MAC1 
CRLPMB.P11 

OMEND 1a 
DMF RNT +] 
‘HLT 75a 
| 2418 
2704 
| 2994 
i $AUTO oF 
| $SBRRSH i] 
| SBUFFE iT 
SCOMP 4 
SCRAM a 
SCYCLE if 
| SEOP 4 
SF INI oF 
SGETPA 4 
SHEADE 4 
SJUMP Ww 
SMARHI vi] 
SMOCK la 
SMSG 4 
SPFAIL a 
SQUEST a4 
SRAMCL 4 
SRCLK i] 
2242 

2386 

2524 

2672 

2812 

2962 

3061 
SROMNU 14 
SROMKD 4 
SSCOPE 4 
SSIMBC 14 
$SOF TC Ww 
STRPDE la 
243 
STSTN 14 
2832 

SVARIA 1 
$xZ 4 
2421 

. 2830 
. ABS. 027776 


ERRORS DETECTED: 
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2307 
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CRLPMB, tet chron nara. -MAC,CRLPMB.P11 


CORE USED: 21K 


rp] 
4 
z 
t 
“ 
i 
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2421 


2478 


2535 


WPROPOPMOPE NPY 
OOnNnUS MN 
ONL OMmOnw 
OM WE OW 


227 
2372 


2195 
2598 


2592 


Worn no nore 


2202 
2649 


2649 


2707 


2765 


2823 


2881 


2364 
2772 


SEQ 0088 


2939 


2370 
2825 
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SEQ 0089 


